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DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OF 
I ITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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DITRA.HED . 13-APR-76 00:90 SPECIAL TEST MACROS 


Re. REQUIREMENTS 


Fe 
A: POP-11 COMPUTER 
8.- MAGNETIC TAPE TRANSPORT CONTROL INTERFACE 
C. ~ 12K WORDS OF MEMORY 
D. CONSOLE TELEPRINTER 
E. PAPER TAPE READER 


A3. LOADING PROCEDURE 


THE DIAGNOSTIC IS IN OSE BINARY Stn AND IS LOADED 
USING THE ABSOLUTE LOADER. 


4. STARTING PROCEDURE 


A. LOAD ADDRESS 200 
8. DEPRESS START 











[wn ee 


aa gry ago as ets QeeCiat TEST MACROS 


oe ee ee ee ee eee 


- . ee 


DO1 


TEST SELECTION: 


R THE TYPEOUT “SELECT TEST NUMBER..." THE OPERA 
POR 7 DESIRED TEST BY TYPING THE NUMBER FOL OLLONED By 


NOTE: THE NORMAL SWITCH SETTINGS ARE ALL SWITCHES DOWN 









EOL 
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AG. TEST GROUP ABSTRACT 
PRETST: PRETEST 


cacy TIM PS TeE cRRORP SESE THE RESET FUNCTION. IT IS PERFORMED 


NOTE: IN THE EVENT OF ERRORS IN THE PRETEST GROUP IT IS RECOMMENDED 
THAT _THE RESET SWITCH ON THE TAPE TRANSPORT BE DEPRESSED 
AND THE TEST GROUP BE RESTARTED AT THE RESTART ADDRESS. 



















TEST 1 

TEST ONE IS A we INTERVENTION t REQUIRING THE OPERATOR 
TO_PERFORM THE TASKS AS DIRECTED Br THE TTY. Fy we THAT THE 
EOT STICKER BE PLRCED BB OUT SO FEET FROM THE LOAD P 







Test 2 
TEST GROUP TWO IS A LOGIC TEST GROUP WHICH CHECKS THE INTERFACE LOGIC. 
TEST 3 


TEST GROUP THREE IS A LOGIC TEST GROUP WHICH TESTS THE TRANSPORTS RESPONSE 
TO ALL TYPES OF COMMANDS. 


TEST 4 










T_GROUP FOUR IS A RELIBALITY TEST GROUP WHICH 


TES CHECKS THE ABILITY OF 
THE TRANSPORT AND THE INTERFACE OVER AN EXTENDED PERIOD OF T! 


ME. 





TEST 
TEST oTSLQ® E116 6 READ PART_OF A COMPATIBILITY TEST. THIS 
TEST 6 






TEST GROUP SIX IS A ae NTENANCE on THIS ROUTINE ALLOWS THE OPERATOR 
TO LOOP ON ANY SUBTEST By E ING THE STAR TT Ge Beinn AT THE TTY. 
THE Loe Fee SPST eno WILL KEEP tH ze gf TEST RUNNING IF LOOP IS NOT 
fas TEST GROUP WILL EXECUTE ONCE AND ANOTHER STARTING ADDRESS MUST 






NOTE: IF ANY ERRORS DETECTED IN BOTH TEST GROUP 3 AND 4 HAVE THE SAME 
PASS NUMBER A DEFECTIVE TAPE SHOULD BE THE FIRST CONSIDERATION. 
IF SWITCH #3 IS DOWN THEN TESTS @ THROUGH S ARE LOOPED ON WHERE 
NO OPERATOR INTERVENTION IS REQUIRED. 
IF SWITCH #3 IS UP THEN ALL TESTS ARE PERFORMED. 
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OZTRA.HED =: 13-APR-76 00:90 INTRODUCTION TO TR79 DIAGNOSTIC 


177 
178 ; ¥MAINDEC-11-DZ2TRAA /<377>/TR79F CHECKOUT TESTS 

te ; #COPYRIGHT 1975, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 

181 i 

i182 ;STARTING PROCEDURE 

183 *LOAD PROGRAM 

te eee AROR EF? Codeod : 

186 :PROGRAM WILL TYPE “MAINDEC-11-DZTRAA /<377>/TR79F CHECKOUT TESES” 
187 :PROGRAM WILL TYPE “RUNNING” TO INDICATE THAT TESTING HAS ST 
1898 *AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
189 :AND THEN RESUME TESTING 

191 

132 ;SWITCH REGISTER OPTIONS 

194 : 

ige iad Swi a=40000- $e T TCSP ON EURSENT TEST GROUP 

13 ait 4=200H0 SSL INHIBIT TyPEGUT 

198 010000 SW12=10000 +31,BELL ON ERROR. 

199 94000 SW11=4000 *=1’ INHIBIT ITERATIONS 

200 SwW10= *=1,ESCAPE TO NEXT TEST ON ERROR 

201 001000 =] =1;LOOP WITH CURRENT DATA 

Far] 090400 Swog= =1’LOOP_ON ERROR 

203 *NOTE...FOR TEST 485 LOOPS BACK TO BEGINING. 
204 poo2o0 SWO7= 

205 000100 SWO6=100 

206 o0c040 Swos=' , 
207 Suc4=20 

208 000010 5wO3=10 :=0, LOOPS ON TESTS 2 THRU S. 

203 71, RUNS TESTS 1 THRU 6. 

ell 04 SWO2=4 s=1, LOCK ON TEST SELECT 

ele oooo02 SwOl= t=]; RESTART PROGRAM AT SELECTED TEST 

213 000001 SWCO=1 t=1; SELECT DEVICE ADDRESS, VECTOR, ETC. 


re a ee oe 





RONDO ESS Bios sous 


BR 


234 





HO1 


YEE ORC nosso” SRE NERSE BEFINITIONS AND EQUIVALENCES 


oe eee ee 


;REGISTER DEFINITIONS 


RO=” ;GENERAL REGISTER 
RI=%1 {GENERAL REGISTER 
ee ee ape : 


—s EOUIVRLENCES 


Psat 77776 ;PROCESSOR STATUS WORD 
STACK =1200 START OF PROCESSOR STACK 


ocr DEFINITIONS 


PUSHISP=S7™46 ;DECREMENT PROCESSOR STACK 1 WORD 


POP 1SP=5726 ; INCREMENT PROCESSOR STACK 1 WORD 
PUSHRO=10046 RO ON STACK 

POPRO=12600 RESTORE RO FROM ae 

PUSH2SP=24646  ;DECREMENT STACK wie 


=246 
POP2SP=22626 REM TWICE 
-EQUIV EMT, ERROR ;BASIC DEFINITION OF ERROR CALL 


;B1T DEFINITIONS 


Tiss 100000 


DOWWOWWWIWOOMWOOWOMwW -- 
1904 09 8 ABN dG Od PO 


LEVEL7=340 
LEVEL6=300 


Idl 


DZTRA. praen amor 27 0p Outed hor on, pag ee AND EQUIVALENCES 


270 000240 LEVELS=24u 

271 000200 LEVEL4=200 

272 000140 LEVEL3=140 

a LeveL 

er L6= 

277 ;TR79 CONTROL AND STATUS REGISTER DEFINITIONS 

Ee :(TRCR) BIT DEFINITIONS 

25u ’ 

59) ;TAPE TEST EQUALS 

Be i poo000 ILCOO. os 30 ILLEGAL COMMAND 

234 o00402 WRITE = : id WRITE FORWARD 

285 coo4 Dp = : FORWARD 

286 06 ILCOZ. 406 *1 ILLEGAL COMMAND 

387 00141 ACER | =141 i3 SPACE REVERSE RECORD 
00101 LC =101 : ILLE 

289 001414 ILCOB «= =1414 :3 ILLE 

230 000016 ERASE =16 :0 ERASE WORD COUNT FORWARD 

291 001020 REWIND =1020 :1 REWIND 

292 o00022 ILCli = :0 ILLEGAL C 

293 oco4e4 ILC12 4 *] ILLEGAL COMMAND 

294 PWRCLR=BIT11 sQEFINITION, OF POWER CLEAR BIT 

e35 001926 GOEOT : ig FAST FORWARD TO EOT 

539 a33 ibe’ = =4932 if ine T. BELO BLOCK 

298 001034 WEOF =1034 :2 WRITE END OF FILE 

e393 001436 OFLINE =1436 :3 TAKE UNIT OFF UNIT 

301 

302 TCR= 164000 ;DEFAULT CONTROL REGISTER ADDRESS 

303 164002 TSR= DEFAULT STATUS REGISTER ADDRESS 

304 64004 TWwC= 164004 : WORD 

305 164006 TBA= 164006 : DEFAULT BUS ADDRESS ADDRESS 

306 TvA= 170 :DEFAULT TAPE VECTOR ADDRESS 


TSA= 172 DEFAULT TAPE STATUS ADDRESS 





JOl 


BSTRA HED “tstaphore oorso 0 PREF 1D, FOR UNEXPECTED INTERUPTS 


Sid § 


WIGIWGLIW GILILI 
b+ b-2b— = B-- H+ p+ pp 


SERS PORES 


pSE RRA nina ot 


~ 
tf 
~ 


bre 





00 
000137 001510 


000 
005377 O4051S CY7111 


eee = «--- 


5s RRARAAARERA AER ELAREAA AEE REAL RA EA EEE R ALARA REE R EA ERA RARER ESAS SARL LA AES 


: Pep ke "Feat tere ante -, 
R" IS PLACED ai 


eer ves N PORESS TO 0 ADDRESS 776. 


1 HHH HGHEIHHHE HEHEHE HEHEHE HH HEHEHE Eee 


.20 
;STANDARD INTERRUPT VECTORS 
224 
PFAIL POWER FAIL HANDLER 
0 ;SERVICE AT LEVEL 7 
-EROR OR 
340 ISERVICE AT LEVEL 7 si 
. TRPSRV ‘GENERAL HANDLER ofSParc SERVICE . 
a ‘SERVICE AT LEVEL 7 | 
a 0 i SAVE FOR ACT-11 OR XXDP | 
TORN ADDRESS IF UNDER ACT=-11 OR XXOP - 
si SENDAD 6 Use NETH ABT OTL OR XXDP 
ne 0 _ sACT=11 PROGRAM CHARACTERISTICS 
2174 : 
DISPREG:0 SOFTWARE DISPLAY REGISTER FOR SMALL 11S 
WREG: 0 :SOWTARE SWITCH REGISTER FOR SMALL 115 
IMP —s_ START . ;G0 TO START OF PROGRAM 


.=1000 
MTITLE: .ASCIZ ¢377><12>/MAINDEC-11-DZTRAA /<377>/TR79F CHECKOUT TESTS/<377> 


bISBLRY: 177570 
SWR: 177570 

s INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 
TKCSR: 177560 ; TELETYPE KEYBOARD CONTROL REGISTER 
TKDBR: 177562 “TELETYPE KEYBOARD DATA BUFFER 
TPCSR: 177564 :TELEPRINTER CONTROL REGISTER 
TPDBR: 177566 *TELEPRINTER DATA BUFFER 


;PROGRAM CONTROL PARAMETERS 


ea B ee 
tier: ODE OH "es “19, BE Execy 


ICOUNT: ;NUMBER OF TTERATIONS” THAT CURRENT TEST WILL BE EXECUTED 


KOl 


pernen — e7(10 ) 22-SEP-76 12: 
00:50 *SBROGRAN PA ARAMETERS, VARIABLES, AND TRAP CALLS. 


363 LPCNT: 0 ; NUMBER OF ITEREATIONS SOnpLeTED 
32 BBSCNT: 5 HNUFRER OP * passe ot cOnPLE £28 
39 ESTERR: TERROR CALL 

34 SRVEIN: . WORD ; PROGRAM cats ER 





omeel VARIABLES 





3R5 S 
STACK POINTER STORAGE 
PROGRAM COUNTER STORAGE 


“EVEN 
001500 . ACTIVE: TR. MAP TABLE POINTER. 


369 

a 

373 001240 000010 HOLD: ‘0 ;DEFAULT DELAY TIME FOR 11/70 PROCESSOR 

374 Oo1e4e 900900 RBASE: 0 :BASE ADDRESS OF A GIVEN 1879 UNDER TEST 
1244 000000 REGIST: 9 :DEVICE ADORESS STORAGE LOCATION 

378 01246 Star: 0 :TR STATUS WORD STORAGE 

77 O01 * STPTR: 

378 O0lese ERR: 0 

379 001254 000000 XPC: 0 

380 001256 000000 0 

381 001260 000000 cOR: 0 

382 OOle6e 000000 ACT: 9g 

383 001264 WRTFLG: 0 

384 091266 00000 Loc: O 

385 001270 000215 CR: 21S. TTY CARRIAGE RETURN 

386 O0lez7e LF: ale TTY LINE FEED 

387 001274 RO: 377 ~—s: TTY RUBOUT 

388 001276 XTEST: 0 

389 001300 ZERO: 0 

390 00130 ter ;CONTROL STORAGE 

391 001304 TENPL: : TEMPORARY STORAGE 

392 001306 TEMP2: 0 : TEMPORARY ST 

393 001310 TEMPS: 0 : TEMPORARY STORAGE 

394 001312 TEMPY: 0 : TEMPORARY P 

395 001314 EMPS: 0 : TEMPORARY GE 

3% 001316 SAVRO: ZRO STORAGE 

397 001320 SAVRI: 0 'R1 STORAGE 

398 001322 SAVRe: 0 !R2 STORAGE 

339 001324 VR3: 0 ?R3 STORAGE 

409 001326 SAVRY: 0 ;RY STORAGE 

401 001330 SAVRS: O TORAGE 

402 001332 : 0 

403 001334 0 

404 

405° 001336 


3 


—_——— a a = =. 


LO1 


Ay MACY11 27(1006) 22-SEP-76 12:30 PAGE le 


TRA.HED _13-APR-76 00:50 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 
406 
107 ; PROGRAM CONTROL FLAGS 
4 7 
416 001240 090 INIFLG: .BYTE sPROGRAM INITIALIZATION FLAG 
ui ols OAs COREL: “BYTE VERE. "TEST FLAG 
ae == 
ut o1343 000 OKELe: -Bye 8 ie eer 
414 001344 000 MNTFLG: :BYTE 0 ‘art Mer FLAG 
4s ON TNTReT 6 PASS OF EACH TR79 ITERATIONS WILL BE SUPPRESSE 
Hig 001346 . EVEN 
wig FINI ONS FOR TRAP OUTINE CALLS. 
ul nTERS T0 SUBROUTINES Can a GUND 
420 HE TABLE IMMEDIATELY FOLLOWING THE DEFINITIONS 
iss 1 pt 2 RE OE ETL ECE ETTORE BITTE mi Ki. 
424 001346  TRPTAB: 
42s 104400 SCOPE=TRAP+0 CALL TO SCOPE LOOP AND ITERATION HANDLER 
486 001346 002556 : 
427 a 1ON4O1 SCOPI=TRAB# CALL TO LOOP ON CURRENT DATA HANDLER 
4uag 104402 TYPE=TRAPSS CALL TO TELETYPE OUTPUT ROUTINE 
430 001352 002730 . 
431 104403 TYPEF =TRAP+3 CALL TO FAILURE MESSAGE OUTPUT ROUTINE 
432 001354 003004 . TYPEF 
433 104404 TYPEL=TRAP+4 CALL TO REPEAT MESSAGE OUTPUT ROUTINE 
434 001356 003016 2 
435 104405 INSTR=TRAP+5 CALL TO ASCII STRING INPUT ROUTINE 
436 001360 003040 INSTR 
437 104406 INSTER=TRAP+6 CALL TO INPUT ERROR HANDLER 
438 001362 003144 . INSTER 
439 104407 PARAM=TRAP+7 CALL TO NUMERICAL DATA INPUT ROUTINE 
440 001364 003164 . PARAM 
44] 104410 SAVOS=TRAP+10 CALL TO REGISTER SAVE ROUTINE 
445 001366 003364 . SAV 
443 104411 RESOS=TRAP+11 ;CALL TO REGISTER RESTORE ROUTINE 
444 001370 003424 : 
44S 104412 CONVRT=TRAP+12 CALL TO DATA OUTPUT ROUTINE 
446 001372 903456 f 
447 194413 CNVRT=TRAP+13 CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
148 001374 oo03462 -CNVRT 
450 ee — 


451 Merritt tii tr ttt iiiitt titi titi itt ttit ttt tttitttettrttttt titers 






MO1 


BETRA HED totApRCoe oosdo © 1 SBeokRaN ABRAMETERS, VARIABLES, AND TRAP CALLS. 


452 et VECTOR AND REGISTER INDIRECT POINTERS 
WORKING AREA 


















4 
001 164 TRCR: 164 sR/W 
=> poiare gunn ies, tego a 
Neo SOL4Od Le4N003 WiReR: T4003 feo ONLY 
ue . : g 
cat 164004 TRWC: ie B/W 
0141 te upoe HTRWC: ?R/W 
O014i2 164005 TRBA: te4 NODE READ ONL 
DEFAULT’ TR VECTORS 
001414 - 900170 TRVCT: 170 sREC INTR VECTOR 






001416 Oo00i7e TRRIS: REC INTR STATUS 





















“DZTRAA 
DZTRA. HED 


MACY11_ 27( 1006) 
13-APR-76 00:90 


001£00 
001500 
Ools08 


001506 


001500 


00001 
boboo! 


oo0o00 


ee-SEP-76 ‘12: 3, wen 14 







NOL. 


GRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 
3f R79 STATUS TABLE AND ADDRESS ASSIGNMENTS 


iRLPRP: a 

Thveo: “UK Berea VEOTeyefor TRS NureER O 
TRLVO: .BLKW 1 RITY LEVEL 

TR.END: 000000 
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DITRA.HED =: L3-APR-76 00:90 PROGRAM INITIALIZATION AND START UP. 


is EAR TROL FLAGS AND COUNTS 
; TYPE TITLE ME MES SAGE 


8 


Uvesvesverververnerververververtert 


Rel SRMEE 


3 


unui 
0-0 = 


aSTACK, SP 
#LEVEL6,P 


aid 


;CLEAR E 
sZERO QUI a VERIFY FLAG 
pgm yg hs?! 


TERR NO pt are a POINTER 


:. tateRT. RETURN SET Up FOR P FOR POLE FAIL BEFORE 

FOR SMALL 11 sutteh REGIS i COMPATIBILITY 

6, = (38) SAVE BUS ERROR PS 

1228, SEY UP 19 Tae TRAP 4 THIS ROUTINE 
ALLOW IN NTERRUPTS 


ae an 177870 BE RE FERENCED? 
els. ce VES SKIP ROUND THE SETUP 

IF NO HERE.POINT TO SOFTWARE SWR 
sotePRee DISPLAY’ :POINt TO SOFTWARE DISPLAY REGISTER 

sREMOVE THE TRAP FROM Ty eck 

:RESTORE THE BUS ERROR VECTOR 

s ORKING UNDER A MONITOR ? 


il YES,SKIP_THE TERMINAL INTERROGATION 
HAVE We ALREADY BEEN HERE | TODAY? 
0, SKI 3 NG, THE TIT 


8 
oo 
o 
ee 
£ 


ae 


many 
S 


00 
00 
09 
09 
GO 
09 
90 
00 
00 
09 
00 
a 
$02 00 
S03 90 
Se 
505 00 
507 00 
528 09 
509 
00 
00 
00 
00 
00 
00 
09 
90 
00 
00 
00 
00 
00 
eB 
09 
03 


1 
1 
1 
1 
1 
1 
1 
bf 
1 
bf 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 


SPREE TEOROR 
SagaRee 
an 


ene 


$-2B-- 


28 
B 
y 


1 92 b= b— b= b+ 0-0 bao ho 
00 YOu sire 


3 RE oT50 SET UP THE INFORMATION 
Ae :SET 1 BERAULT PARAMETERS 


#4, TRLVO 
66$ P THE INTERROGATION 
323: aR. MAP , RO THE BEGINNING OF THE MAP TABLE 
58S: (RO)+ sROINT A TABLE LOCATION 
RO. #TR.END ‘HAVE THE TABLE BOUNDARIES BEEN EXCEEDED 
69s :IF NOT ,CLEAR THE NEXT LOCATION IN TABLE 


3 FOLLOWING ARE PARAMETERS USED TO FILL IN THE MAP 
TABLE AND SET UP THE DIAGNOSTIC. 


;GET THE BASE ADDRESS OF THE TR79’S 


RO 
RARER ANS 





, DON’T TYPE ID 


ALIZATION BEEN PERFORMED 


— # 
bed) ogee 
> Loee— 

& 


I 
S 


{MASK OF INVALIO BITS FOR THIS PARAMETER 
L THE OCTAL TO ASCII CONVERSION ROUTINE 


Hy] 
wiz, 
i 
Dut 
—=) 
eu 
fe 
a! 
a 
a 
jz 
ao 


;NUMBER OF PARAMETERS TO STORE 


;GET THE BASE VECTOR ADDRESS 


ee Oh OH OH OR SHR ES Ce ee 68 68 OO OS Fe ee se 


EMP2 


(377>/NOTE: ONE TRS ONLY 7/4377) 


(377>/1ST VECTOR ADDRESS / 
(377>/BR LEVEL 


(377>/CONTROLLER ADDRESS 


Lt RO 


(RO)+ 
1$ 


;GET THE BUS REQUEST LEVEL 
8 


zy ak eas 

ae 8 88% 88se 
BEehs  MURNTG BEREREGSs PEERS BRRSSRRARARRINES 
Ba ee ee a pean 


edoede ea fe ee heen} 


Se 


CRAUAAennahhththtnah GORE RRRRR 


2 
& 
w 
z 
S 
5 
z 
oe 
wiz: 
es 
of 
: 
i 
a. 
“i 
43 
Mj -e 
o 
Bie 
< 
o 


DZTRAR MACYI1 2 
DZTRA. HED 














PAGE 17 
PROGRAM INITIALIZATION AND START UP. 


Spee | enh nn So 22-SEP-76 le: 


uy 
3B 


BRR R EERE Se SRR SoS 


ooo 
O-20-2 bs 
fr-O 





31S PROGRAM RUNNING UNDER MONITOR 
TO CLEAR THE REMAINING 


Dee pone 
ects, "Pete HALT” 


;LOCK OUT INTERRUPTS 
;SET_UP STAC 
1 cree UNDER MONITOR CONTROL 


FOR nog ON TEST 
NO RED. 


tg! NORMAL SCOPE pours 


: T CTED FOR 

;START AT seteC rE BIRD Wht WHICH DEVICE 
“RUNNING” 

:START TESTING 








E02 
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DZTRA.HED  13-APR-76 00:00 END OF PASS ROUTINE 
613 ; s END OF PASS 
ele : TYPE NA OF TEST 
big pia K FOR On exit To ACT-11 
619 
pts posse 1234 esti ERROR PC 
Sea anes ha GSE LES BSL TR 
pss Boss Biase, Sblese  ivesco HOY PRECNT. ADISPLAY 3 get Pass oun 
bee duced 106402 004413 TYPE »MEPRSS i TYPE 
beb ete 10441 aNWET *xCSR OH ce 
002434 10408 oo461e TYPE > MVECX : TYPE VECTOR 
628 O02440 10441 002534 CNVRT XVEC. ; SHOW T . 
eS4 SeSuc ee Baseae tNVAT pace *SHOW IT 
631 O02e454 194408 004631 Nee ” MERRX : TYPE ERRORS 
£35 Bsus if S339 001343 MOVB ov FLG §:SET THE QUICK VERIFY FLAG. 
Bac DOSHTE BOT dE Beg RECTAT TOT CONTINUE SESTING 
635 poseoe RESET :STOP THE SHOW--CLEAR WORLD 
£35 OSees OON7I! mimeo pe 
NOP , 
Bua boson poneue NOP 
641 002510 O00e40 NOP 
euS posers pons 40 001214 RESTART wv 8CYCLE, RETURN 
644 ppses3 ete SO seup * IMP CYCLE 
645 002526 000001 XCSR: 1 
646 002530 006 oo2 .BYTE 6,2 
647 O02532 001376 TRCR 
648 XVEC: 1 
649 oo2 -BYTE 3,2 F 
650 002540 O01414 TRVCT 
651 O0e542 000001 XPASS: 1 
652 902544 O06 oo2 -BYTE 6,2 
653 cose6 901230 PASCNT 
654 602550 090001 XERR: 
655 C2552 906 o02 -BYTE 6,2 
bse 002554 001232 ERRCNT 
p58 ;SCOPE LOOP AND ITERATION HANDLER 
£60 , 
SCOPE: CLR L CLEAR LAS 
Bes ORES OSOe, BONERS izeuie SF AB TFTS. asua iStSoe Oh Tis, Tesr? 
663 002570 001407 TTST:  BEQ BR IF NO. (IF LOCK "quote 1; THIS LOC =249) 
£64 902578 000437 :GOTO (IF LOCK SWOl=1: THIS Loc =e4C) 
665 105777 176404 STB =: Y*KCSR :KE DONE? 
66 S0eb99 100034 33 :BR IF NO. (LOCK: HIT KEY TO GOTO NEXT TEST) 
667 017716 176400 MOV JTKOBR, (SP) CLEAR DONE SIT 
668 002606 COO4IS 2s 


I 
CONTINUE Yih) 
BY) 


' 
} 


FO0e2 
BETA HED iacaPRooe Oosdo | SRenERae ATILITIES (TYPE OUT.ERROR, SCOPE, ETC.) 


004000 176364 1S: b fn , OSWR ae TERATION? (QUICK PASS) 
001343 V.FLG 

001224 
001224 Lean, , ICOUNT 


By 0S 
05037 00134: : ERRFLG PREPARE FOR NEW 
1224 CLR LPCNT :START ICOUNTER AT O 
r : Lock 
001222 ICOUNT RESET ITERATIONS 
001216 Next RETURN : ul T TEST 


3$: ° 
176314 ahi JMP @RETURN ;GO0 DO THE TEST 


ri 
THER A TIGHT LOOP SPECIFIED? 
RETURN 
2 GOTO THE ADDRESS IN LOCK. 


MOV ‘ 
000002 000002 ADD ; 
032777 : Bie ; T_OUT?? 


E81 
682 
683 
684 
£95 
686 
697 
688 
589 
690 
691 
§92 
693 
694 
695 
£96 
697 
698 
£39 


8 


agasaaaaaT 


; CURRENT CHAR. 
Fe NOT ZERO KEEP PRINTING! 
SEND OF OUTPUT. RESTORE RS 


“NN 
Ts 


at STPOINT 1b Tie "Text Coca on Int THE RAI PROCEDURE 


TINES TYPE HERE 
0 POINTER” TO MESSAGE TO PRINT 
+t oneemee ; INHIBIT PRINTOUT? 


THIS PART PRINTS THE REMAINDER OF THE MESSAGE 
;THIS IS THE "FAILURE’ PART OF IT 





G02 


BSTRATHED T1StAPRCOE oOrdO © 1" SBeNERAE GTILITIES (TYPE OUT, ERROR, SCOPE, ETC. ) 


TRA 
725 


deteoltee santas 


BISISTITSS aka aaa aa eee aaa gaat gs eee 


003036 


esas don SBE GREED OREESROREEE 


ROP LOH EHSRK LR LST MENS 


Saees sr 


' 18: RIT ;RETURN TO THE MAIN PROCEDURE 
SSTRING INPUT ROUTINE . 


010346 INSTR: MOV —s- R33, = (SP) 


;SAVE R3 ON STACK | 
1 neti: We :PotnT To IneTaucr Ton BFTER THE ADORESS POINTER K 


; : sPRINT THE ME 
es 007370 ie ae eINGUF RY ;POINT a To The Input BLPFER i 
te reste 1$: iST8 arKesR ths A EMARACTER BEEN RECEIVED" a 
117714 176100 MOVB § @TKDBR, (R4) : 


z 
fi 
a] 
E 
Z 
* 
$ 


IF YES, SAVE IT IN THE INPUT BUFFER 
142714 00200 BICB #200, (RY) "KEEP ONLY THE 7-BIT ASCII INFORMATION 
biiais COONS Bro” | OINGTRO ETP GO TERMINATE’ THE INBUT: SEQUENCE 
105777 176064 2s: 1378 STPCSR siF NOt, otteck Wie eer iF THE CHARACTER CAN PRINT 
ale? tera? gga bec aa = sECHO THE NUMBER 1 RECEIVED 
001356 1$ IF WE DON’T HAVE 7. GO GET SOME MORE 
012804 (SP)+,R4 IF WE HAVE 7, RESTORE RY 
012603 NV (SP)+'R3 “RESTORE R3 
Hee aNSTe: Yc) HEME AG Te ST 
104402 004346 ' TYPE’ MQM “PRINT A QUESTION MARK... WHAT’S GOING ON? 
000741 "INSTL GO PRINT THE MESSAGE AGAIN 
nese meme: Hy Gees HESS 
oocade RTI > RETURN TO THE MAIN PROCEDURE 
‘CONVERT ASCII STRING TO OCTAL 

Bipuue “PARA: Oy ORB =CEP SO OVE RG ON THE. STACK 
bi bece ooooo4 4($P) RS seey THE SETUP INFORMATION POINTER 
012537 003354 MOV (RS)+,LOLIM ise THE LOW LIMIT FOR THE INPUT 
012537 D035 MOV (RS)+,HILIM SET THE HIGH LIMIT FOR THE INPUT 
O1e537 HOV (RS )+, DEVADR ; SAVE THE RODRESS WHERE THE RESULT WILL BE STORED 
118857 eet (R2} 3 Loe? iat The ROONT OF THES $0 BE STORED 

10566 000004 soe HOV jong UAE THE MAIN Seta fe WILL RESUME 
pOs00s 9073 : NUF.RY : "ect b i WORD 
35714 atts CHE ; te “1S THIS ns A CARRIAGE RETURN? 
agi BEQ He i}? $0 Pat . 3 nesshce IN 
1 ie 000060 1S: CHP CR) , #60 : 5 ts CHARACT R BEL Ou THE NUMERIC RANGE? 

is 000067 NPB iy #67 if fat aie NUMERIC RANGE? 

l2 BGT PARERR *IF SO, GO PRINT THE MES: AGAIN 
e744 oc0060 ICB —s- #60, (RY) STSOLATE THE NUMBER THE CHARACTER REPRESENTS 
ISB (R4S+, RS ;CONCATENATE THESE BITS TO THE EXISTING STRING 


HOe2 
DZTRAA MACY. 2? . pA 
DETRA-HED L3-APR-7E OOrH0 ~~ GENERAL UFILITIES (TYFE OUT, ERROR, SCOPE, ETC. ) 


; 4 900015 CHB AHS, (RM) 18 Ie A CARRIAGE RETURN? 
res pee rage 0 LIA tts rag? HE KG vee NER WITHIN LIntts 
ASL OT ERR’ Bt i ITION THE EXISTING STRING TO THE L 
SEs Goes a & y a AIO RCE Ai 
o i$ at |: ple NT THE MESSAGE AGAIN : 
PARAM! TRY SETTING THE PORAME TERS AGATH : 


; TEST TO SEE IF NUMBER ts WITHIN LIMITS 


~ 


BR 
PARERR: a 


RRP OR SBIR RE 
: 


903304 003356 LIMITS: CMP RS, HILIM sDOES RESULT EXCEED ITS MAXIMUM CORRECT VALUE? 
10 aie BHI *IF YES, GO PRINT THE MESSAGE AGAIN a 
mee ot . SO BRRERR Eyre ee MER ere scans SAIN 
798 rake ee 003362 BITB LOBITS,RS “ARE ANY INCORRECT Bits SET IN THE RESULT? } 1) 
o33 003324 001365 BNE PARERR ;IF SO, GO PRINT THE MESSAGE AGAIN 
801 ;STORE NUMBER AT SPECIFIED ADDRESS 
803 003326 013704 003360 MOV VADR, R4 sPOINT TO THE LOCATION WHERE THE RESULT WILL BE STORED 
804 003332 010524 1S: MOV REV CRGSs *STORE THE RESULT 
80S 003334 062705 oD0002 ADD ae ‘CALCULATE THE NEXT 
806 003340 105337 003363 DECB  ADRCNT *REDUCE COUNT OF STORED “RESULTS. IS IT EXCEEDED? 
807 003344 091372 BNE 1$ -IF NOT, GO-STORE THE 
B08 003346 012604 MOV (SP)+,R4 *RESTORE RY - 
012605 MOV (5P)+'RS *RESTORE RS - 
g10 003352 000002 RTI RETURN TO THE MAIN PROGRAM 
812 003354 o00000 LOLIM: O SLOWEST ACCEPTABLE VALUE 
813 003356 co0000 HILIM: Q sHIGHEST ACCEPTABLE 
814 003360 o00000 DEVADR: 0 ATION WHERE RESULT WILL BE STORED 
815 003362 000 LOBITS: .8YTE 0 SINCORRECT BITS MASK 
gig 003363 000 ADRCNT: .BYTE 0 COUNT OF ITEMS TO BE STORED 
g18 ; ;SAVE PC OF TEST THAT FAILED AND RO-RS 
820 = , 
821 003364 016637 000004 001334 .SAVOS: MOV 4(SP), SAVPC ;SAVE R7 (PC) 
B23 Phe ;SAVE RO-RS 
’ 825 003372 010537 001330 SVOS: MOV RS, SAVRS ;SAVE RS 
826 003376 010437 001326 MOV RY; >SAVE RY 
827 003402 010337 001324 MOV R3, SAVR3 -SAVE R3 
828 O03406 010237 001322 MOV Re, SAVRE “SAVE Re 
829 003412 010137 001320 RI, SAVRI :SAVE RI 
830 OO3416 010037 O013i6 MOV RO, SAVE RO 
B31 cO342e 000002 RTI sLEAVE. 
B33 re ;RESTORE RO-RS 
835 003424 013700 001316 .RESOS: MOV SAVRO, RO ;RESTORE RO 
836 003430 013701 901320 MOV SAVR1,R1 :RESTORE R1 


. 102 


-“ 
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004352 
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DZTRAA 


DZTRA. HED 


Pict einiuciee Tk i et 


OOO O0OWWOWWOWW 
0 hh bs bb bo pe pe 
CONDUC WhO. 


SEER EGA CORSETS oe COO IeT ES 
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LOCK: 


175270 .EROR: 


175262 
175244 XBX: 


18: 


TYPMSG: 


J02 


fuittes (TYPE OUT,ERROR, SCOPE,ETC. ) 


cee a ae epee 
i PNBCUSED gf Ofecet 5 OBeaTn POINTER 
:TO SELECTED SUBROUTINE 


MOV 


(SP). -(SP) :GET RETURN 
4 tap ts Cook 

acSP), (SP) GET TRP 

(SP) MULTIPLY TRAP ARG BY 2 
#117001,(SP) CLEAR UNWANTED BITS 

#.TRPTAB, (SP) ;POINTER TO SUBROUTINE ADDRESS 
a(SP), (SP) *SUBROUTINE ADDRESS 

a(sP)+ :G0 TO SUBROUTINE 


;SOFTWARE TIMER FOR RELATIVE TIMING TESTS 


INC R3 ;COUNT A TIME TICK 

BNE CLOCK ?KEEP GOING UNTIL WE REACH 0 
INC TEMP "NOW ADD TO THE OVERALL TIMER 
BR CLOCK *KEEP GOING 

;ERROR HANDLER 

BIT’  s#SW12,aSWR ;BELL ON ERROR? 

BEQ XBX *BR IF NO BELL 

TSTP  aTPCSR TTY READY. 

BPL. XBX :DON’T WAIT IF TTY NOT READY. 
MOV3 #207, JTPDBR *PUSH A BELL AT THE TTY. 

BIT #SW13, *DELETE ERROR PRINT OUT? 

Be Tesistem geld Ete Paw UST rue? 
BEQ  & *BR IF 1. 

MOV (SP), LSTERR "RECORD BEING HERE 

CLRB —s ERRFLG : HEADER 

SAVOS *SAVE ALL PROC REGISTERS 

MOV (SP).RS GET THE PC 

SUB #2,R5 :GET ADDRESS OF TRAP CALL 
MOV (RS), R4 *GET ERROR INSTRUCTION 

ASL RY :MULT BY TWO 

ADD (RS),R4 :DOUBLE IT 

ASL RY *MULT AGAIN 

BIC #137001,R4 ?CLEAR JUNK 

ADD #. ERRTAB, RY *GET POINTER 

MOV (R4)+,ERRMSG § :GET ERROR MESSAGE - 

MOV (R4)+,DATAHD  ;GET DATA HEADRER 

MOV (R4), DATABP GET DATA TABLE 

ee eee ier 

TST DATABP Bree para TALE EXIST? 

BNE TYPDAT : YES. 

TYP ,MCRLF TYPE A CARRIAGE RETURN 

TYP "MCRLF “AND TYPE AN“ THER 


K0e 
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949 001220 ; LOCK 
SY 


a 
OO4ESE ¢. 
; CR/LF 

HEADER UNLESS NO DATA TABLE. 
. AN ERROR MESSAGE? 


: ERROR MESSAGE 
DATA HEADER? 
°BR IF NO 


au Bist 


8 bee 
HHL 
RYH 


REE 


WSENDAD, a¥4e 
aSWR *HALT ON ERROR? 


BS 
48 


EXITER BR IF NO HALT ON ERROR 
2(SP),RO “FBHOM ERROR PC IN DATA DISPLAY 


5 
sGET RO 
EXITER: ERRCNT surpar OR_CO! 
#SWO8, ISWR 560 @ Tob OF ery 


¥SW10, ISR GOTO. NEXT TEST? 

NEXT, RETURN *SET FOR NEXT TEST 

#STACK, SP *RESET SP 

JRETURN :GOTO SPECIFIED TEST 
: RETURN 


TNITVOWOHLOR EHSL eS 
225 
aoe 


Oo be b> bs bmn fae bs bao bs be be fn be Fw 2 bo bo 
- 

- 

= 

= 

= 

= 


* 


Ree 
IESE 


5 


: 


6,2 


OO4O4 
0040Se 
Bie 
4 
004070 
its 
Boul 12 
004116 
s 
3 
004 
004% 
004 
% 
004 
004 
004 
004 
004 
004 
004 
004 
004200 
O0420e 
004, 
004214 
004216 
3 
004234 
3 
00% 
004250 
004 


3 
Es 


. 3,2 
TSTNO 
;ENTER HERE ON POWER FAILURE 


oi 
BB 


-PFAIL: 
004274 c00024 MOV #RESTART, 24 ;SET_UP FOR POWER UP TRAP 
HALT ;HALT ON POWER DOWN NORMAL 
BR : ;PREVENT ANY FURTHER PROGRESS 


; PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


: 
9S4 
955 
2 
359 
960 
ee 
964 
es 
968 
i 
971 
972 
973 
974 
975 
976 
977 
978 
973 
980 
981 
982 
2 
986 
987 
988 
989 
990 
991 
992 
993 
- 994 
995 
996 
997 
998 
999 
000 
001 
O02 
003 
oc4 


a ee a oo oe 
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1 
Oe ous hy oooney PESTART: A, g cean oy R FAILURE 
tha BRdSeS BISSRE RISES MOY eS tracKU as Reset" rie stack PDTnteR 
1p1d OONaI8 | OOS200 1s fe ES OE TIMER! 
118 Potato = BarSoe in. ET de “te, 

1012 04319 104402 o049SS TYPE MPFAIL STYPE THE MESSAGE 

1013 O32 10813 OOO } CNVRT 'PFTAB TELL WHAT TEST TO RETURN TO. 
1014 O04 1 1341 er CLRB = ERRFLG ST ART CLEAN 

101s OO4350 Qoso37 Ole CLR —LSTERR 

1016 004334 900177 INP RETURN 'START DOING THAT TEST AGAIN. 
1017 004340 00001 PFTAB: 1 

1018 OO4342 003 O02 ‘BYTE 3,2 

1019 GO4344 001226 TSTNO 

1020 004346 20040 000077 MOM: .ASCIZ 7 27 

(3) Oo43s2 O0S01IS — 000 MCRLF: “ASCIZ © <15><12> 

(2) OOS 377 S320 20122 WPFAIL: (ASCIZ <377)/PUR aa RESTART AT TEST / 

(8) Budde osuses puotse fanele Maes Recess (3553 ZENO 

(B) opwW5a 080377 O47522 OS1107 NMERRE: ASCIZ (377>/PROGRAN INoICATES, NO DEVICES PRESENT. / 
3) OSI? 3” O¥7IIT Osebe3 MERRS: :ASCIZ <377>/INSLFFICIENT DAT 

(5; Bouece 395 BuSetd Geedes MTaieC: .Racts SPB AGEK ON SELECTED TEST/ 

(3) OO4E04 051503 035122 OQOODY MCSRX: “ASCIZ 

(8) QO412 O¥252b 036103 OOOO MVECX: -ASCIZ Mee / 

(5) Q04620 O40E20 051523 051S0S MPASSK: [ASCI? /PASSES: / 

(3) OO4G31 10S OElis2 OS1117 MERRX: “ASCIZ /ERRORS: / 

(3) OO442 O42624 OS2123 ON7O4O MTSTN: “ASCIZ /TEST NO: / 

(3) OO4ES4 oOoDDse MASTEK: “ASCIZ 7#7 

(3) OO465— 041520 020072 000 MERRPC: ASCIZ /PC: / 

(2) OONG6) 377 OWOSIS C2018 XHEAD: -ASCIZ <a77>/mAP OF TR7G STATUS/<377) 

(3) OO4710 051377 OS1S05 OS2105 MRSTFL:.ASCI RESET 

8) Oodzel 377 Oslie OSelli MWRIFL: .ASCIZ <377>/MRITE 7 

(3) 004732 051377 O40SOS O20104 MROFL: :ASCI2 <377)/READ 

(3) QO474S OE1777 O40E20 O42S03 MSRVEL: “AGCI? <377>/SPACE REVERSE / 

(3) O0¥763 a7? OS110S OSIS01 MERLE: -ASCIZ <a77>vERRSE / 

(3) OO4774 020377 O42522 4721S MRMVAG: “ASCIZ (377>/ REMOVE WRITE ENABLE RING LOAD & PLACE ONLINE / 
) W777 OS1Si6 OSLIOS MINGRG: :ASCIZ <377)/INGERT WRITE ENABLE RING LOAD & PLACE ONLINE/ 
(3) 005132 044777 OS2116 OS110S MIENFL: [ASCIZ2 <377>/INTERRUPT ENABLE 

(3) O0S156 044777 056116 OS1105 MIDSFL: :ASCIZ <377>/INTERRUPT DISABLE se 

(3) 05203 377 O47520 O42S27 MPCFL: ‘ASCIZ <377>/POWER CLEAR 

(3) Q0GS22 053777 QUES? O4SE54 MWIPLEL:ASCI2 (377>/URITE 1D BLOCK PAST LOAD POINT / 

(3) OOS264 081377 O47111 NRMLBFL:ASCIZ (377>/REMIND FROM LOAD POINT 

(3) 005916 044777 046114 O43S0S MILFFL: .ASCIZ <377)/ILLEGAL FUNCTION 

(2) OO5Me Oss777 Oulsee Ouesed MMLPEL: “ASCIZ (377) (WRITE FROM LOa0" Pont / 

(3) 053777 OueGe4 MMEFEL: °ASCIZ <377>/uR 

(3) osHe 7 O51ie7 Oselll LsAscl2 END OF FILE FROM LOAD POINT / 
(3) 0846 77 461 FEA MELO BRKES (Soo) BTACE GNET ON LINE GeTER TAPE, MOTTON HAS STOPPED / 
(3) OO8SS2 047777 020116 O44514 : SASCIZ (377>/0N LINE ERROR 7 

3) 0s673 377 Obie? Oselll MMILPFL: .ABCIZ < WRITE TD BLOCK FROM LOAD POINT / 

(3) 005635 377 0471 lil LN: {AECI? §CAP7>/UNIT DI NOT GO OFF L 

(3) oose7i 37703117 02010 ge ea laa R 

5} Bbese? nc13> AuseSE Bacrad MBOCRA: TREKTS <aoo>-READ para F EINE / 

(3) O0E761 377 OS0123 O4iSO1 MSREFFL:{ASCIZ <377)/SPACE REVERSE OVER END OF FILE / 


MOe 
? —SEP- : 
DETRALHED 1a-APROTE 00;00 = et CENERAL Gtriities (TYPE OUT,ERROR, SCOPE ETC.) 


(2) 006023 377 o4eS522 ov2101 NREF FL: rar (377) /READ_END oF rai / 
(S} Geb; 395. Baad Bisi0t Ai MATOFLS “Asc (300) REO 11 oUt 
(2) 006112 053777 O44See ese MUNKEL : d cl ‘ 377>/WRITE NON-EX 
(5} poest 335 Bea Toe oi MNXBFL: “Aeets C370) EXTENSION. at ge hBNe By eeteeY MEMORY / 
(2) 00626 302 O40SOS O41040 MNXMFL: .ASCIZ (377) /ER BITS 12 AND 13- NON EXISTENT MEMORY / 
(3) ieee O42522 O42101 MRCFL: .ASCIZ a Count / 
(2) 006351 377 O47105 O20104 METFL: .ASCI C377) EN OF Tee / 
(3) 006376 051377 051 052105 MRSTU: ABC! (377>/RESET TAPE UNIT / 
(5) 433 cee perio? att tr Rec} COOP URTTE™ PRET ENO OF TAPE / 
(3) ppedee 951399 pasead NORETELS AecTs (377)/SPACE REVERSE PAST END OF TAPE / 
(2) 006530 051377 O2u104 MRPETFL:.ASCIZ <377>/READ PAST END OF TAPE / 
(2) 006561 377 Osi1e7 052111 MMEFETE: .ABCIZ (377>/WRITE END OF FILE PAST END OF TAPE / 
B ie Bie Bees RUS Mer Res nant tse PST OO OE 
(2) O08722 051777 O40520 942503 MSRLPFL: . ABCIZ (377)/SPACE REVERSE AT LOAD POINT / 
(2) 006761 377 OS0123 O41501 MSRIFI.; .ASCI REVERSE AT ID BLOCK 
(5) posses ots Gegehe Daoibe RAREL: “AECTS CS7PD EVEN PORE TOO“ 
(3) O0 oueo> 042526 O20116 NEPCRE:L + AeeTs <377>/EVEN PARITY SPACE REVERSE / 
(2) 007113 377 O42522 O42101 MREPFL: .ASCIZ (377) “READ EVEN PARITY / 
(2) 007137 377 047527 O4el2e MWCFL: .ASCIZ <377>/WORD C / 
(5) DOPSee 359 HOESE BUSEDA RUNRDNT “RECTS CAODD TORE UNTT ROT READS Se 
(2) 0072 377 177777 O42b07 MEOT:  .ASCIZ (379) (377) (377) (207) 7END OF TAPE... TAPE REWOUND / 
(3) 007276 052377 OS4S2% O41040 MTBEX: ARIZ <3 (377) /TTY / BUFFER EXCEEDED. RESTART INPUT. 7 — 
(2) OO 040506 O46111 OS112S MFAIL: :ASCIZ /FAILURE / 
(2) 007355 EVEN 
(2) 007356 oe XSTATOQ: 2 
021 007360 006 003 .BYTE 6,3 
007362 001304 TENPL 
007364 006 002 .BYTE 6,2 
007366 001306 _ TEMPS 


SSSR 


007370 0000 INBUF: O 
- 907432 =, +4 
031 007432 000000 TTYEND: QO 
O32 007434 900000 
1033 007476 = 
te 007476 0600000 MDATA: .O 


ee wee = ——_—o 
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bps 


SE RES SENT INS 


pa bb Pah po bh ~~ hh he He 


a a 


eect it bial RS RENAN 


| 


| 


010344 
012737 


001226 
001226 
001214 
004352 


011324 
OC4346 


010344 
171274 


171402 


oo00de2 


001214 


N02. 
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GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) 


CYCLE: 


7$: 


S$: 


6S: 


CSRMAP: 


VECMAP: 


Ta ROUTINe oe a3 a4 THE CONTROL ADDRESS FOR THE DIAGNOSTIC 


*BE RUN FIRS arene ENTERING THE DIAGNOSTIC FOR THE 
; SETUP NECESSARY. 

MOV ACTIVE,RO ;GET ADDRESS POINTER. 

MOV (RO)+, TRBASE ;LOAD SYSTEM CTRL. REG 

MOV (RO)+; TRVCT LOAD VECTOR 

MOV (RO)+, TRPRT TOAD PRIORITY 

ISR PC, TRLEV ;SET UP 

TST 42 ARE WE UNDER MONITOR CONTROL? 

BNE 4 IF YES, SKIP THIS SETUP 

BIT #SH01, JSWR IF SWOl=1, GET STARTING TEST 

BEG. hee *BR IF NO tee IS TO BE INBUTTED 

jGET THE STARTING TEST NUMBER 

tNSTR sCALL_THE STRING INPUT ROUTINE 

MTSTN ; POINTER TO MESSAGE TO BE PRINT: 

PARAM *CALL ’ THE OCTAL TO ASCII CONVERT ROUTINE . 

;LOWEST TLEGITINAT Te VALUE OF EXPECTED RESPONSE 

ian OINTER TO MAP _L SeATTON a att dente 
‘BYE a aa FOR THES PARAPETER 
“BYTE R OF PARAMETERS TO STO 
MOV tTST1 RO 

CMP #12737, (RO) 

BNE 

CMP TSTNO, 2(RO) 
BNE 
CMP #TSTNO, 4(RO) 
BNE 6$ 
MOV RO, RETURN ;SAVE PC 

TYP MCRLF 
BR ag 

TST (RO)+ 
CMP RO, #TLAST+10 
BNE S$ 
ae 9 
MOV #TSTL.RETURN § ;PREPARE RETURN ADDRESS 
IMP JRE TURN GO START TESTING. 

;#ROUTINE USED TO “AUTO SIZE” THE TR79 

?#CSR AND VECTOR. 
MOV #TR.MAP, Re 
MOV #TCR, (R2)+ ;STORE CSR IN CORE TABLE 
TST (Re)+ :POP OVER VECTOR STORE AREA 
MOV #4, (R2)+ *SET THE DEFAULT BUS LEVEL 
MOV #390, J822 :SET IOT TRAP PRIORITY TO 7 
MOV $, 0820 :SET IOT TRAP VECT 
MOV ‘MAP, R2 :SET SOFTWARE POINTER 





















DIOTRAA MACY11 27.1006) 32-SEP-76 12:30 PAGE ee 
DITRA. HED 13-APR-"& 99:90 GENERAL UTILITIES (TYPE OUT,ERROR,SCOPE,ETC.) 








1092 907786 912700 00210 MoV #210,R0 : RANDOM VECTORS | START HERE. 
1593 eee: O1e701 o00212 MOV s2l2. Rl :PC OF I0T 

1094 OO7786 910120 1S: MOV RI. <RO)}+ s START rit NG “Vector AREA 

1085 90777 oierel ooo004 MOV #4" (R1)+ io 

l 02 H CMP cRA)+ iRL)+ Ag 2°10 

109° O0777%% Gsdie? 901000 CMP R1, #1000 tere AREA SEEN EXCEEDED? 

1598 910002 101771 SLOoS 18. Ree IF MORE TO FILL 

1099 O10004. 005037 177775 CLR PS ERO CPU PRIO 

i:08 0100:0 Ol2772 000100 osoo006 MOV aBIT&, a(R2) 

1191 sATTEMPT TO FORCE AN INTERUPT 

iis pi oea 1376 ince a ‘9% FOR TIME TO INTERUPT 

Fs bie see 000170 socode HOV 1150, 2(R2) sNO INTERUPT ASSUME 210 AND FIX TR79 LATER 
ll 10032 051662 ~0000 4§: 1S (SP). 2c R2) :GET VECTOR ADDRESS 

tis steak Basses ted oooeg2 1c aP at ks) :CLEAR JUNK 

1108 O10054 Sezee¢ POP2SP “POP IOT JUNK OFF STACK 

1198 910946 9So90de RTI . 

110 615050 960297 PC SALL DONE WITH “AUTO SIZING” 

ees 
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655: 
67$: 


18: 


68$: 
70$: - 


695: 


2S: 
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9 
BEvEce DIAGNOSTICS. COPYRIGHT 1976 DIGITAL EQUIP. CORP. 


MAXERR=50. MAXIMUM NUMBER OF DEROR PRINTOUTS 
peeaRT=o6. ce we ute 


CORSIZ=40000 


PRETEST ROUTINE 


: MOV aPRETST,TSTPTR ;SET TEST ADDRESS 


ISR PC, TESTN 

MOV HOLD, (PC)+ sBdCK UP TIME PARAMETER 

.WORD 0 THIS AS A TIME COUNTER 

8 s IF 

ete cbs iis Te TIME RE ENPIRED® IF NO, NO, LOOP AGAIN 

eG gOS THE TOTAL, TING FLOP SD 
I #PWRCLR, EVICE MASTER RESET 

Bt SPLRCLR, » STR PEN teen CLEAR 

Be 6 :IF NO, WAIT FOR iT TO CLEAR 

CMP 86026, ITRCR :CHECK COMMAND REGISTER 

Bea 1§ :SKIP IF OK 


aTRCR, RY 
MOV TRCR, REGIST 


ERROR 1 ; INCORRECT REGISTER MATCHUP 
TYPEF ,MRSTFL 


MOV #50, HOLD SET UP FOR A MASSIVE DEL LAY 
MOV HOLD, (PC) + PICK UP TI 
.WORD 0 :USE THIS 5 doko Ae ae AS A tine COUNTER 
INC 80 sIF_NO,COUNT 1 OF 6553S TICKS 
BNE 70S “HAS THE TIME EXPIRED? aff NO, LOOP AGAIN 
DEC 588 HAS THE OTR TINE ELaP SED? 
IF NO,GO WAIT A LITTLE PENCER 
MOV #10, HOLD RESTORE THE NORMAL DELAY FACTOR 
CMP #2226, JTRCR TEST COMMAND REGISTER 
BEO 2s ‘SKIP IF OK 


MOV TRCR.RY 
tRCR, REGIST 


OR ~; INCORRECT REGISTER MATCHUP 
TYPEF I ARSTEL 


MOV JTRSR, RI GET STATUS 
BIC see7, Rl -.° CLEAR UNWANTED BITS 
St TEST THE STATUS REGISTER 





DO3 
DETRALHED LaAPR-76 00:00 PRETEST ROUTINE 


3$ ;SKIP IF OK 
ooc030 


RI RY 
001402 TRSR, REGIST 


Beh 


; INCORRECT REGISTER MATCHUP © 


5 pa The pens FLAG 
1$ ;SKIP IF NO DEROR 
#81T14, aSWR ; TEST LOOP BIT 

71 ;BRANCH IF CLEAR 
PRETST T 


ERR SCLEAR THE DEROR FLAG 
BC, FIXBUF | 


PC 
Se eeeeeeecT CROP 1 TEST 1 RHRRERSLRSERESSSLELELE ELLE SESE 


BOS 
oO .cOoOoO 


SSeSSeeeee Seeeee 


0+ 0» = 0-< b-- 0 b-< 9 B= 8 § 0 = 9 9 Bs 9-2 9 9 
i=) 


Cait in tow Re RN RS ad 


ES 
Tiriiiitiritiittrertitirertiiitittititititiitirettttttit tts 

etiitit titty 3 
ee% . 
sf 
38 TEST 1 
arrrrrrrrrr tT’ 

: MOV 


tsT1 


oO 
— 


#1, a8TSTNO : EST IN THE INDICATOR 
#TST2,. NEXT : NEXT TEST . - 
#10, 05HR : nes 


ENOL 
STABLE! 
BSTACK, 


a ee 


é 


0+ 02 bb b2 b— 02 xo b= bo b0 fo po 
oOo 
Fy: 


BBGRR LOG 


TC :SET TEST CONTROL INDEX 
SP :RESET THE STACK 


TC, TSTPTR 
TC, RS 


;POINT TO ST 

;PERFORM THE 

;THIS LOCATION MAY BE CHANGED TO A HALT TO INSPECT 
PREM pacnve, Be PROGRAM OPERATION 


;SET DEROR Tt ADDRESS 
#e,TC X 
PC, a(RS) TEST 


Se 
TERUALED GunceeRSSeed! 


: - 
CLEAR THE DEROR FLAG 
300 NEXT ect 

sPASS COMPLETED 


rorururorururururururu 
0-2 + b= 0 bb 0 oe 
ONOW CWO 


;THIS TABLE CONTAINS THE SUBTESTS TO BE PERFORMED SY TEST 1 


TEST8 ;REMOVE WRITE RING 
RUNAS ;TRY TO WRITE WITHOUT RING 
TESTC ;INSERT WRITE RING 


Une: 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
b 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 


S 
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eae a Tee a Nese 
pinene pubes | 


Rigeig fetes aM 
4 E REVERSE ove ver EOF PAST EOT 


l REWIND AND GO OFF LINE 
010522 IMP RESTRT 
010535 


5 RRARELERAREAERARAEREESES TEST OC ReRRRRRERRE SESE SESSA SEE SE SELES 


; TES 
Pitti iitiiti titi ti tit ittittitittttittiittiiiiiittititititte 

3: :wennebienne 
$3 ¥ 
+H TEST 2 
see 4 
ertirtittitt) 
tST2: MOV ;LOAD THE NUMBER OF THIS TEST IN THE INDICATOR 

M BOINT TO THE mnt i 4, NEXT TEST 


BEL TEST CON TACK 
1S: 


;SET DEROR SUBTEST ADDRESS 
;POINT TO _NEXT igst 
RFORM T 


THIS LOCATION MAY BE CHANGED TO A HALT TO INSPECT 
PMENT pbnan eae PROGRAM OPERATION 


Senuiens 


[Es SS 


8 
g 


te 


01 
Ol 
Bt 

1 
01 
i 
Ol 
Ol 
ot 

l 
0! 
01 
01 
Oi 
O01 
01 
Oi 
01 


cence 


;THIS TABLE CONTAINS THE SUBTESTS TO BE PERFORMED SY TEST 2 
TABLE2: TESTI ;REWI TAPE 
Bs i RSURE WRITE RING 
*UNIBUS EN ENTION Pit TEST 
HINTERRUPT, Bit ‘Bt ean aR FEST 


ENE oe FB oo 


VERSE AT LOAD POINT 
nT 


ate 
200 


RRR 
NOrE 


lelalelelel=alel=le]=) 
w 
<= 


Ob © 8 8 = + oH 


BR 





FOS 
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1280 010662 023520 TESTAU ;B8USS ADDRESS BIT TEST 

1281 O10664 142 TESTBA WORD COUNT BIT TEST 

1388 10666 010634 ; END2 

: . 

158s Boe I eis TEST 3 ARERSAARSL KALLA ELS SLASLALLAZKS 
1287 } © RERKEEE EGER EE EEG EERE EE EERE EEL EEE EEE EE SELES EEE EE EEEES EE ESES 
i3s3 peeedine 

1 ::% TEST 3 

1291 zi 

153 oy 1 poi2ee feta: MOV aTSIN THI N THE INDICATOR 
ise bir bia? Btioae Bbieig ; nov ref fe beer Hf THe SraRT Fue FEST IN eds 
1338 Gigrig ler ve - MOV tet f3,rc sel 1 FHe Stace 

1298 010716 013737 001302 oo1250 ~— MOV TC, TSTPTR 

1299 910724. 013705 001302 MOV: TC’ RS TEST ADDRESS 

1300 010730 900002 001302 ADD #2 TC Porn T To TI ST 

1301 010736 004775 O00000 JSR —- PC, CRS) 

1302 O10742 ee NOP thts OFoCAT on’ Ra Y BE CHANGED TO 8 HALT TO INSPECT 
13os 919744 oo12s2 nr oe fare pe ee 
1305 910750 ranted BEQ 64S s SKIP IF NO 

1306 010752 032777 O40000 170222 BIT #B1T14, aSWR : TEST LOOP B 

1307 010760 001402 BEQ  &4§ :BRANCH IF CLEAR 

1308 010762 000137 010716 INP 1$ ;IUMP IF SET 

1309 01078 005037 O0l2s2 64$: CLR ERR ‘CLEAR THE DEROR FLAG 

1310 010772 000751 BR 1S :D0 NEXT TEST 

131) 010774 104400 END3: SCOPE PASS COMPLETED 

13i3 7 

1315 A sTHIS TABLE CONTAINS THE SUBTESTS TO BE PERFORMED BY TEST 3 
1317 010776 O11644 ie TABLE3: TESTC INSURE WRITE. ENABLE RING 

1318 011000 12624 Test sREWINO THe TAPE 

1333 Btipps Bts4ee ine DAG TEST 

1321 O11006 O23S60 TESTAV ;SPACE REVERSE OVER ID BLOCK 

He Ge ce Sa ee 

1324 seats Bta7ag RUNU case REVERSE Fee OVER EOF MARKS 

1325 O11016 15114 PREAD EOF 

1326 011020 015320 TESTW TINE OUT OUT Test 

1327 011022 O17346 TESTAC 

1328 011024 017606 TESTAD :READ SOUNT 

1329 611026 d20046 TESTAE READ COUNT 

1330 011030 Ge TESTAF :SPAC 

1331 011032 024234 TESTAX WRIT PARITY 

1332 011034 Oe4476 TESTAY :SPACE VERSE OVER EVEN PARITY 

1333 011036 024730 : TESTAZ READ EVEN PARITY 

1334 011040 010774 : END3 








DZTRAA MACYL1 1 er he an ho ce-SEP-76 le: 
DZTRA. HED 

1336 

Hs 

1340 

ais 

iS. 

1344 011042 piers 000004 001226 
1345 011050 Qle737 QO11160 OOlel6 
134 011056 Ol2737 011150 001302 
1347 011064 912706 001200 

1348 011070 

1349 011070 013737 001302 001250 
1390 pit 1 001 

1351 OQlll 001302 
13S2 011110 004775 000000 

1353 911114 

iat 011114 000240 

1 111 001252 

i367 QUiee OOraoe 

1388 011124 032777 oO40000 170050 
1359 Qllise 001402 

1360 011134 000137 011070 

1361 911140 005037 O0leSe 

1362 011144 000751 

1363 O11146 104400 

1364 

1365 

1366 

1367 

1368 

1369 011150 011644 

1370 011152 013762 

1371 011154 Oe6206 

1372 011156 O11146 

1373 

1374 

1375 

1376 

1372 

1378 

1380 

1381 

1382 011160 012737 000005 00126 
1383 ati ige piss? 011314 OOlel6 
1384 011174 G1 011304 O0i3s0e 
im Bt ighe 012706 001200 

1387 Bi i308 013737 001302 001250 
ise Bisse ners 001302 001302 
1360 Oliese 069775 000000 

1391 Olle3e 


30 
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PAGE 33 
PRETEST ROUTINE 


5 RRARAARAAARALL AL LAAARKKE TEST 4 REREAA ERLE EK ELEL AL EL ELAS ELAR AS 
tx T 


, 


EST GROUP 4 
5 SESS SEES SE dE JEJE SEER SEE EE HES SESE EE EE HE SEE RHE HEHE EE HEE REE 


etiitiiitt it 


ss 
1 33% TEST uy 
3% % 
s RHRSRKSSSLAE 
ao OV . aNTsTN0 sLOAD_ THE HE NUNBER OF THIS TEST TEST IN ris INDICATOR 
MOV Ds 5 NEXT POINT 19 He START We 
MOV TC SET TEST NDEX 
-— MOV ee *RESET THE “BTRCK 
MOV TC, TSTPTR 
MOV TC; RS ;SET DEROR SUBTEST ADDRESS 
ADD 82,7 . *POINT TO NEXT TEST 
on JSR PC; @(RS) - *PERFORM THE TEST 
NOP sTHIS LOCATION MAY BE CHANGED TO A HALT TO INSPECT 
; "EQUIPMENT STATUS OR PROGRAM OPERATION 
TST: ERR ;TEST THE DEROR FLAG 
BEQ . «64S :SKIP IF NO 
BIT #8ITL4, ISWR *TEST LOOP BIT 
BEQ 64§ ;BRANCH IF CLE 
JMNP-  ARA JUMP IF SET 
64S: CLR ERR :CLEAR THE DEROR FLAG 
gR :DO NEXT TEST 
PASS COMPLETED 


END4: 


SCOPE 


;THIS TABLE CONTAINS THE SUBTESTS TO BE PERFORMED BY TEST 4 


TABLE4Y: TESTC INSURE WRITE RING 
TESTO REWIND AND WRITE ID BLOCK 
TESTXX tWRITE, ERASE,SPACE REV, READ AND TEST DATA 
eT GROUP Gt TEST § suueeseceseunuenenseseseeeasses 

SHARK AAAASLASLSAAASAAE RELA LA ALLL SSSSS YE AAAA LASERS LSARSASASEEE 

ps pennerbinens ; 

ji TEST S 

SPTrertrrr try 

tSTS: MOV #5, #TSTNO ;LOAD THE NUMBER OF THIS TEST IN THE INDICATOR 
MOV #TSTé NEXT POINT TO THE Tart OF THE NEXT TEST 
MOV #TABLES, T “SET TEST L INDEX 

tie MOV #STACK ape :RESET Fue” orack 

“MOV TC, TSTPTR 

MOV TC, Re ‘5 piss SUBTEST | ADDRESS 

“i ah BE’ a¢RS) He test 


HO3 
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1392 011232 000240 NOP Ta Phe at MAY oft SGHANGED TO A HALT TO INSPECT 
: NT STATU OGRAM ATION 

138 011234 005737 001252 TST ERR : Test THE 0 ROR FLAG 

133 Bi tee B78 040000 167732 BF Se PTi4, ASWR ised LOOP att 

Hap SLs? EELS ovsoe fe ete 

i338 i iSee 1252 64S: CLR Bee ‘CLEAR aE DEROR FLAG 

1409 116s 000751 nes BR BEB *DO NEXT TEST 

1402 eb 032777 000010 167710 BIT #10, 2SWR ;SKIP NEXT TEST? 

1403 O11 901003 BNE 1§ =NO 

1404 blier4 012737 002376 o01216 MOV #.E0P, NEXT :SET EOP 

140s ll 1 1S: SCOPE :PASS COMPLETED 

1407 ;THIS TABLE CONTAINS THE SUBTESTS TO BE PERFORMED BY TEST S 

1409 911304 01 TABLES: TESTI ;REWIND THE TAPE 

1410 011306 O23 STAW 3READ THE ID BLOCK 

1411 911310 TESTXY ;READ THE TAPE 

tale 011312 011264 ENDS 

1414 5 RERSERRAAERAARAERAEREREH TEST & 2RRRRRRRRREREELER SER EE SELES ERE 

1415 2% TEST GROUP 6 

1416 os SSSSSSEFSLESEESSSSSESSSSSELERERESSLSSSSESELESELSSSESSSSELSSELE 

1417 Etitiiiitiis 

1418 ssf 

1419 t:% TEST 6 

1420 33% 

1421 +s LEERELELERER : 

1422 011314 012737 o00008 o01e26 TST: MOV #6, J#TSTNO ;LOAD THE NUMBER OF THIS TEST IN THE INDICATOR 

1423 011322 Sle737 002376 OOlet6 MOV #.E0P,NEXT - POINT TO THE END-OF 

1424 011330 012737 611516 O01 MOV #TABLES. TC :SET TEST CONTROL INDEX 

142s 011336 012708 001200 MOV-  —- &STACK, SP RESET THE STACK 

1427 ptt ais 104405 INS ;CALL THE STRING INPUT ROUTINE 

1438 011344 011454 MESTADD *POINTER TO MESSAGE TO BE PRINTED 

1429 01134 104407 P “CALL THE OCTAL TO ASCII CONVERT ROUTI 

1430 011350 610344 TST LOWEST LEGITINATE VALUE OF EXPECTED RESP 

1431 011352 Oe6206 TESTXx *HIGHEST LEGITIMATE VALUE OF EXPECTED REPONSE 

1432 011354 O115i6 TABLE “POINTER TO MAP LOCATION TO BE FILLED 

1433 011356 001 .BYTE 1 *MASK OF INVALID BITS FOR THIS PARAMETER 

1434 011357 901 "BYTE *NUMBER OF PARAMETERS TO STORE 

1435 011360 012737 011516 001302 2S: MOV STABLES, TC “SET TEST CONTROL INDEX 

1436 911366 017737 167710 001250 MOV aTC, TSTPTR ;SET DEROR SUBTEST ADDRESS 

1437 011374 013705 001302 MOV TC,RS 

1438 0114900 062737 000002 001302 ADD #2, TC 

1439 0114068 004775 oO00000 JSR PC; a(RS) PERFORM THE TEST 

1440 011412 O00240 NOP *THIS LOCATION MAY BE CHANGED TO A HALT TO INSPECT 

1441 - ; EQUIPMENT STATUS OR PROGRAM OPERATION 

1442 011414 012737 177777 oDl252 V #-1, ERR ;SET DEROR FLAG 

1443 O11 737 O0les2 TST ERR “TEST THE DEROR FLAG 

1444 O11 001406 Q 64S ‘SKIP IF NO DEROR 

1445 011430 O32 040000 167544 BIT #81714, ISWR :TEST LOOP BIT 

1446 611436 001402 BEQ 645 *BRANCH 2F CLEAR 

1447 O11 000137 011360 INP *JUMP IF SET 


I03 
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DZTRA. HED 00:50 PRETEST ROUTINE 
1438 Qiu 905037 001252 64$: CLR ERR CLEAR THE DEROR FLAG 

: : Bi ides re aMad END6: FF OPE PASS C TED 

1452 011454 042777 OS2116 OS110S MESTADD: .ASCIZ <377>/ENTER STARTING ADDRESS OF TEST / 
1453 011462 OS144C 040524 052122 

1454 O11470 047111 407 04, 191 

1455 011476 051104 051 12 

1356 11504 043117 051505 

1457 011512 124 000 

1458 11516 EVEN 

i4eg 

1461 sTHIS TABLE CONTAINS THE SUBTESTS TO BE PERFORMED BY TEST & 
1463 011516 TABLEG: 0 

1464 011520 011452 END 

1465 

1466 J Petree een n enn en ere wn we nee nnn een ee eenereceseorewecoscosocnson= 
1467 

1468 SBTTL SUS-TEST ROUTINES 

1470 s THIS ROUTI WAITS FOR TAPE UNIT TO GET READY OR DEROR 
a7 OR TIMES OU ITS WHEN IT DOES 

1473 011522 005001 TESTA: CLR Ri CLEAR TIMER 

1474 911524 1$: 

1475 011524 1 INC Ri | COUNT _UP 

1476 011526 001414 BEQ 2g :SKIP IF ZERO 

1477 011530 777 100000 167640 BIT #81T15, ITRCR 

1478 011536 901019 BNE $ ;SKIP IF SET 

1479 011540 002000 167630 - BIT.  #BIT1O,3TRCR | 

1480 O11546 001766 BEQ 1 ;NO-BRANCH 

1481 011550 777 OO00200 167620 BIT #8117, aTRCR 

1482 011556 001762 BEQ 1$ ;NO-BRANCH 

1483 011560 2s: 

1484 011560 000207 RTS PC 

age , 
1487 *THIS ROUTINE INSURES THE WRITE ENABLE RING 

1488 REMOVED AND EXITS WHEN IT IS 

1490 011562 TESTB: 

1491 011562 032777 OO00D4 167612 BIT #5172, 3TRSR 

1492 911570 O01015 BNE 2s ;SKIP IF ONE 

1493 011572 104402 004774 TYPE § , MRMVRG 

1494 011576 1S: : 

1495 011576 032777 OO0004 167576 BIT #8172, ITRSR 

149% 011604 001007 BNE 2s ;SKIP IF ONE 

1497 011606 37 007434 INC TEMP 

1498 Oll6le 001003 BNE 64$ 

1499 011614 012777 o00207 167370 MOV #207, JTPDBR RING THE BELL 

1500 Oll622 64S: 

1501 Ollgée2 000765 BR 1S 

1502 O11624 2s: 

1503 011624 


052777 O04000 167544 BIS #PWRCLR,JTRCR  ;DEVICE MASTER RESET 


_——— ae CS TT 
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g 


011632 032777 OO4O00 167536 65S: BIT sPWRCLR,aTRCR . INSTRUCTION CLEAR ? 
1505 O11640 001374 BNE pss IF-NO, WAIT FOR IT TO CLEAR 
tet? O1164 B00? RTS 
l Ome me ee oe oe we me we _ a ee See ee eM RBS SM SRR SR Re Be wT Oe ww eK ww Swe we eH Hew OH HM PM ee Omer eH rer eK Owe 
1 sTyl NE INSURES THE WRITE ENABLE RING 
1816 BTS SCRTER AND EXITS WHEN IT 1 
eis Bead 000004 167530 reste BIT #81T2, ITRSR 
t2i3 pi tPds antes BEQ ;SKIP IF ZERO 
151S 011654 104402 oosos4 TYPE § ,MINSRG 
1516 O11660 1S: 
1817 11660 37 007434 INC TEMP 
1518 611664 001003 BNE 64S 
1519 O11666 B27 000207 1672316 MOV #207, JTPDBR RING THE BELL 
1520 011674 64S: 
1521 o1igr4 000004 167500 BIT IT2,aTRSR 
1522 611702 001366 BNE 1 LOOP TILL ZERO 
1523 011704 777 O02000 167464 BIT #BIT10,aTRCR 
Sea O1i71e 001762 me BEQ 1$ ;BRANCH IF CLEAR 
1526 011714 052777 oOO4000 167454 BIS HPWRCLR,STRCR —; DEVICE_MASTER RESET 
1527 011722 032777 OO4O0D 167446 658: BIT #PWRCLR,aJTRCR INSTRUCTION CLEAR ? 
1528 011730 001374 BNE 65S IF NO, WAIT FOR-IT TO CLEAR 
1529 011732 004737 013662 ISR PC, TESTN 
1530 011736 052777 OO4000 167432 BIS #PURCLR,JTRCR DEVICE MASTER RESET 
1531 011744 032777 OO4OO0 167424 66S: &BIT WPWRCLP;aITPCR =; INSTRUCTiuN CLEAR ? 
1532 011752 001374 BNE 66S Ir No, WAIT FOR IT TO CLEAR 
1533 011754 000207 RTS PC 
1534 
4 irene 
1537 He IS ROUTINE TESTS THE READ WRITE ABILITY OF THE 
1538 UNIBUS EXTENSION ADDRESS BITS 
1540 011756 TESTD: 
1541 0117568 052777 oO4O00 167412 BIS #PWRCLR,@TRCR ;DEVICE MASTER RESET 
1542 011764 032777 OO4OOO 167404 64S: BIT #PWRCLR;aJTRCR INSTRUCTION CLEAR ? 
1543 011772 001374 BNE 64S IF NO, WAIT FOR IT TO CLEAR 
1544 011774 913737 001376 oo1244 MOV TRCR, REGIST - INDICATE THE ERROR REGISTER 
1545 012002 052777 010000 167366 BIS w010000,aTRCR  ;SET UNTBUS EXTENSION 6 
15468 012010 632777 010000 167360 BIT 8010000;aTRCR TEST UNIBUS EXTENSION BIT 16 
1547 012016 001001 BNE 1$ *SKIP_IF OK 
1548 Oie020 104000 _ ERROR ‘ERROR-BIT WAS NOT CORRECT 
1550 o12022 1S: 
1552 012022 042777 010000 167346 BIC #010000,3TRCR ;CLEAR THE BIT 
1553 012030 032777 O10000 167340 BIT #910000, PaTRCR «=: TEST THE BI 
1554 012036 001401 BEQ ‘SKIP IF CLEAR 
1585 012040 104000 ERROR *ERROR-BIT WAS NOT CORRECT 
1587 o12042 2S: 
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TRA. SUB-TEST ROUTINES 
{eer gie0s0 Gsee7 020000 167330 Oty ODODE STRER « ETESTCUNTHLIS EXTENSION BIT. 17 
tees Bishee Batho1 BAe :Tbey Youu 

1583 012069 104000 ERROR ‘ERROR-BIT WAS NOT CORRECT 
1565 012062 38: 

ise 

1 012062 042777 O20000 167306 BIC #020000,3TRCR ;CLEAR THE BIT 

1569 012070 930777 O20000 167300 BIT #20000, JTRCR ;TEST THE BIT 

1570 012076 001401 BEQ 43 :SKIP IF OK 

137k 012190 104 ERROR *ERROR-BIT WAS NOT CORRECT 
1573 012102 4g: 

ee 

1576 012102 052777 O30000 167266 BIS #30000,3TRCR § ;SET BOTH EA BITS 

1877 Oie110 777 030000 167260 - BIT #30000, "aTRCR ©: TEST BITS ON 

1 12116 001001 

1873 012120 000 ERROR 

1581 01212 cs: 

1583 Ol2122 042777 030000 167246 . Bre #30000,dTRCR § ;CLEAR EA BITS 

1584 012130 0320777 030000 167240 BIT #30000;aTRCR § ;MAKE SURE 

1585 012136 001401 BEQ 6$ 

1585 012140 ERROR 

1587 

1588 o12142 6$ 

1589 012142 000207 RTS PC 

1590 

133) ) ir 
1593 ;THIS ROUTINE SETS THE INTERRUPT BIT AND TESTS IT 
1534 "TO INSURE IT IS SET 

1596 012144 012737 000340 177776 TESTE: MOV #LEVE ;SET PRIORITY TO 7 

1597 O121S2 052777 OO0100 167216 BIS - . sBTTe. La rhee 

1598 Ol2160 032777 000100 167210 BIT #BIT6,aTRCR 

1599 012166 -001003 BNE 1$ ;SKIP IF SET 

1600 012170 104000 EPROR *ERROR-BIT WAS NOT CORRECT 
1601 Ol2i72 104403 005132 TYPEF  ,MIENFL 

1603 012176 1$: 

1604 012176 000207 RTS PC 

1605 é 
1608 j tenn --------------- +--+ - +--+ - +--+ +--+ +--+ ---- +--+ -------------- ------ 
1608 ;THIS ROUTINE CLEARS THE INTERRUPT ENABLE AND TESTS 
1608 *TO INSURE IT IS CLEAR 

1611 0122 TESTF: 

1612 012200 042777 OO0100 167170 BIC #BIT6, aTRCR 

1613 Ole206 032777 OO0100 167162 BIT #8176, aTRCR 

1614 012214 0O01403 BEQ 1$ :SKIP IF ZERO 

1615 Ole2le 104000 ERROR ‘ERROR-BIT WAS NOT CORRECT 
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104403 


babes? 


oooocs 
912777 
052777 
012701 
00S201 
001376 


032777 
001001 
104000 


005156 


177776 


000026 167134 
004000 167126 
177300 


004000 167110 


167032 


777 OO4000 167014 


032777 
001001 


002000 167006 
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SUB-TEST ROUTINES 


1$: 


TESTG: 


15: 


4S: 


S$: 


TYPEF 


THIS ROUTINE TESTS THE 


RESET 
M 


»MIDSFL 


JTRCR 
sort aTRCR 
#-500,R1 


is 
#8IT11,aTRCR 
es 


Le, Pees 


#BIT11,aTRCR 
4$ 

TEMP 

3$ 


#BIT11,aTRCR- 
S$ 


#81T10,aTRSR 
6$ 


. 


;SET PROCESSOR PRIORITY TO SO 


FUNCTION OF THE POWER CLEAR 


;SET COMMAND REGISTER 
;SET DELAY 


; DELAY 
; CONTINUE 


;SKIP IF SET 
ERROR-BIT WAS NOT CORRECT 


sPICK UP TI 


ME PARAMETER 
;USE THIS WORD 


AS A TIME COUNTER 


65535 TICKS 
D? pPSED?" LOOP AGAIN 


3 
Fs 
oa 
ae 3 


;PICK UP TIME PARAMETER 
:USE THIS WORD AS A TIME COUNTER 


;I1F NO,COUNT 1 OF 65535 TICKS 

HAS T PIRED? IF NO, LOOP AGAIN 
ELAPSED? 

LITTLE LONGER 


;SKIP IF CLEAR 


;DELAY 


;SKIP IF CLEAR 
;ERROR-BIT WAS NOT CORRECT 


;SKIP IF ON LINE 


MO3 
BSTRA HED LocAPROre. eoiBar" 12:30 gt TEST ROUTINES 


1672 012376 000207 RTS PC 
1673 012400 6S: 

1 77 V TRCR,.R GET COMM TER 
ie GLESER RETBL HAZE BY SEE, cucu dla BgR MOIST 
1677 012410 622701 002200 CMP #2200, Al TEST COMMAND REGISTER 
1678 012414 001411 8EQ 7§ 3SKIP IF OK 
1673 OieHig 1270 002200 MOV 42200, RS 
1681 Oise ire 001376 001244 MOV FRR REGIST 
1682 O1e432e 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
1683 012434 104403 o0S203 ; TYPEF  ,MPCFL 
1685 o1e440 Cts 73: 
ieee 012440 017701 166736 MOV TRSR, RI GET STATUS. REGISTER 
1688 O1e444 042701 002247 BIC #2247,R1 CLEAR UNIAN 
1689 012450 005701 TST Ri :TEST S STR RTUS Ree TeR 
1690 (12452 001410 BEQ Bg SKIP I 
1691 0120454 012705 002247 MOV #2247, RS 
1692 012460 010104 “5 MOV R1.R4 
ies 6 ; ined ee ERR R TRR, REGIST INCORRECT REGISTER MATCHUP 
1695 pts yo 1044 FRR L ' 

1696 

1637 012474 aS 

1699 012474 000207 RTS PC 

a 

170¢ THIS ROUTINE IS USED TO TEST THE FUNCTION oF WRITING A ID 
1703 ee “BLOCK FROM LOAD POINT AND AFTER LOAD POINT 

1705 012476 TESTH: 

1705 012476 004737 013762 JSR ° PC,TESTO 

1707 Oleso2 004737 025605 ~ ISR PC’ TESTCK 

1709 012506 004537 O26544 JSR RS, TRYIT : 

1710 Ol25i2 000432 . ,WORD wWIbB RINT TION 

1711 012514 o00000 "WORD -0 WORD COUNT 

i7i¢ 012516 “WORD 0 “BUS DDDRESS . 
1714 012520 022777. 142632 166650 CMP #142632,aTRCR ;TEST COMMAND REGISTER 
1715 Ole5e6 OO141e BEQ $ SKIP IF OK 

1716 012530 012705 142632 MOV #142632;R5 

1717 012534 017704 166636 MOV JTRCR, RG 

1718 012540 013737 001376 o01244 MOV TRCR, REGIST 

1719 O12e546 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
1720 012550 104403 ocoS222 TYPEF  ,MWIPLFL 

17ee 012554 1S: 

1724 012554 022777 O02000 166620 CMP #2000, JTRSR TEST THE STATUS REGISTER 
1725 Olesbe O01410 BEQ 2g *SKIP IF OK 


012705 002000 : MOV #2000,R5 
17e7 O1eS70 017704 166606 _ MOV ATRSR, RY 


NO3. 


DZTRAA MACY11 2711006) cg -stP-76 12:30 PAGE 40 


OZTRA.HED —13-APR-76 90:00 SUS-TEST ROUTINES 
1728 012574 013737 o01402 o01244 MOV TRSR, REGIST 

1729 012602 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 

1733 012604 2s: ’ 

1 012604 052777 OO4000 166564 BIS #PWRCLR,JTRCR ;DEVICE MASTER RESET 

1734 Dleble 032777 OO4C00 166556 64S: 8IT sPURCLR, ,aTRCR $ INSTRUCTION CLEAR” a: ines 

i532 BtSese Boosar Rs OB 

1 

1738 SPOT EE eae 
1739 sTHIS ROUTINE TESTS THE FUNCTION OF REWINDING 

1740 *WHILE AT LOAD POINT THIS IS THE MAIN REWIND ROUTINE 

1742 012624 TESTI: 

1743 012624 052777 OO4000 166544 BI WPWRCLR, @TRCR ; DEVICE MASTER RESET 

leb3e 0320777 OO4000 166536 64$: BI #PWRCLR;3TRCR INSTRUCTION CLEAR 

1745 012640 001374 BNE 6 5 IF NO, WAIT FOR IT "70 CLEAR 

1 les42 O04 026544 ISR RS, TRYIT : 

1747 O1e646 001020 WORD REWIND iFncTIon 

1748 012650 o00000 WORD WORD COUNT 

1749 Ole6Se 000000 WORD a :BUS DDDRESS 

1760 012654 Az. 

1751 012654 0320777 oO0002 166520 BIT #BIT1,aTRSR 

1752 012662 001374 BNE A . sBRANCH IF SET 

1753 012664 032777 OOOO4O 166510 BIT sB1TS, aTRSR 

1754 Oleb?e 001770 BEQ sBRANCH IF 

17s Olorae Gae777 SoNooD eevee 65S:  BtT sean, STRER |S TNSTRUC nistER es aR? 

1536 ot 71 1374 . Ete 65$ i FNSTR ae ai chee? fr’ TO CLEAR 

1758 Ole712 004537 oeEs44 ISR RS TRYIT : 

1759 012716 001020 WORD REWIND RiNcT nam 

1760 Oi2720 000000 “WORD WORD. COUNT 

1761 le7e2 00000 “WORD 0 *BUS DDDRESS 

1763 012724 022777 003220 166444 CMP 43220, aTRCR sTEST COMMAND REGISTER 

1764 Ole73e 001412 BEQ ASO 

1765 Ol2734 012705 003220 MOV #3220,R5 ae 

1765 O12740 017704 166432 MOV JTRCR, RY : 
1767 012744 013737 001376 o01244 MOV: TRCR, REGIST r 
1768 Ol2752 10400 ERROR l ; INCORRECT REGISTER MATCHUP : 
1769 012754 104403 oos264 YPEF ,MRWLPFL , 
1774 012760 000001 ASO: STAGAS=STAGAS+! 

1773 912760 022777 002040 166414 cHP #2040, aTRSR :TEST STATUS REGISTER 

1775 ptgree aes 002040 - MOV #2040, RS 

1776 012774 017704 is64oe MOV JTRSR, RY 

1777 013000 013737 O01402 cooley Ce MOV TRSR, REGIST 

1778 013006 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 

1779 013010 1 TYPEL = 

1781 013012 ASL:  STAGAS=STAGAS+1 

1783 012012 052777 OO¥O00 166256 BIS #PWRCLR,OTRCR ;DEVICE MASTER RESET 


edaigeldeted 
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DITRAR MACYLL 27.10 
<TRA.HED 


eeeeenaaee be 


0—* 0 0-2 b= b= 02 b= bb bo 6 bb hh heb bo 2 0 bo be 
QIWIWWWWOWIGWIWWWWWWWt G&G) 
PNERSELEESRNBENSS TOR B 


Se retetetetatatat a 
SORESORS 


2 
mM 
tv 





13-APR- 
013029. 


b13080 


lh le:3 


4000 166350 64S: 


Olebe4 


0900390 
001240 


ococ00 
013114 


STAGAS=STAGAS+1 





BO4 





SUB-TEST ROUTINES 
sPWRCLR,aJTRCR 5 SS TA TT oe d 
4§ ;IF NO, WT > 


C 


PC, TESTI 

BCETAR Ra 
(Rais 
geo tet 


9.0 
Pt, TESTI! 
RY 


#142200,R5 
R1.R4 

TRCR, REGIST 
,MILFFL 


STAGAS=$TAGAS+1 
MOV aT 


RSR,R1 


#2040;R1 
AS3 


82040,RS 


RI.RY 
TRSR, REGIST 


IT TO CLEFS 


© Geewwwwewwnonns coeweoweeoce ns ncw cow coecesoeccowcccccccococccococccoocoe 
;THIS ROUTINE TESTS THE 


FUNCTIONS OF ILLEGAL COMMANDS 


oe oe ILLEGAL INSTRUCTION CODE TABLE 


NUMBER OF ILLEGAL INSTRUCTIONS 
COCE 


DELAY PAST TIME OUT 
:PICK UP TIME PARAMETE 
ZUSE THIS WORD AS A TIME COUNTER 


;IF NO,COUNT 1 OF 65535 TICKS 

; THE TIME EXPIRED? IF NO, LOOP AGAIN 
;HAS THE TOTAL TIME ELAPSED? 

;IF NO,GO WAIT A LITTLE LONGER 


:RESTORE NORMAL DELAY FACTOR 
:GET COMMAND REGISTER 

sCLEAR UNWANTED BITS 

‘TEST COMMAND REGISTER 


; INCORRECT REGISTER MATCHUP 


;GET_ STATUS RE 
;TEST STATUS R 


; INCORRECT REGISTER MATCHUP 








CO4 
ACY} 271008) om” a Sug te T “Routines 


BIS SPWRCLR,@TRCR  ;DEVICE MASTER RESET 


Bre seer, ote SNS RU LA Sea tr. IT TO CLEAR 


PC 
ILCTAB: .WORD ILCO3,ILCOS,ILCO6,ILC11,ILC12, ILC14 
¢ Gacnneuwenensqussssoeewsessewerecnssssesesesnsesesneasnnesessnsencensass: — 


;THIS ROUTINE TESTS THE DEROR CONDITIONS OF WRITING 
;FROM LOAD POIN 


ARE EERE SS 2 


Re TRV 
WRITE iFuvcriOn 


ouTPuT ‘BUS DBDRESS 
#142602, 3TRCR —; TEST CONTROL REGISTER 
#142402, 
TRCR, REGIST 
se 

STAGAS=STAGAS#1 | 
e2040,a7RSR —; TEST STATUS REGISTER 
a0, RS 


JTRSR, RY 
TRSR, REGIST 


yess 
| 


at 
-- 
£7 
8 
- 
£ 
~_ 
rm 


2a 


; INCORRECT REGISTER MATCHUP 


b— & 2 & 2 2 pH - > Be He el eel ee ee ee od 


V5 


3 
B 


Ria a nak a a 


8 

on 
8 
~~ 
£ 
~ 
os 


; INCORRECT REGISTER MATCHUP 


a 
as 


STAGAS=STAGAS+1 
| pacer aTRCR 


SBR BS 
Be Ba 


€0710 
01344e 


013442 


1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
bf 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 


Pe ee eee SPREE REE Je otek san 


SERSPewn 


7 012442 





DO4Y 
BSTRA HED tacapRoee O0SSO ete ae RCE Routines 


2 goog00 3S: 0 
4§: 


TESTL: 


~ 

Se Se oe 
ONO0K0K000000 oO 
0 0 0 0 ob mpm pe pe 


RS, TRYIT ses 
REO FUNCTION 
‘ 50 sHORD COUNT 
165712 4 #3234, ITRCR Pee, REGISTER 
#3234,RS 
MOV JTRCR. RY 
001244 TRCR, REGIST 
ERROR 1 
, MWEFFL 
STAGAS=STAGAS+1 
42011, 2TRSR sTEST THE STATUS REGISTER 
#2011,R5 


aTRSR, RY 
TRSR, REGIST 


waraa 3 


ett ia 


INCORRECT REGISTER MATCHUP 


OOO OOWWOWOOWwW 
02 0 b= 0 0 b= bb — Pe 
WOMONMUI.CUITU-O 


; INCORRECT REGISTER MATCHUP 


;THIS ROUTINE ROUTINE TESTS THE DEROR CONDITION OF WRITING A END 
;OF FILE MARK FROM LOAD POINT. / 


RR 
re 


Rt 
WE OF FUNCTION 
- ;WORD COUNT 
0 *BUS DDDRESS 
8143234, ATRR TEST COMMAND REGISTER 
#143234, RS 
aTRCR 
TRCR, REGIST 
, MWELPFL 
STAGAS=STAGAS+1 
1esssy CMP 82040, ITRSR sTEST THE STATUS REGISTER 
BEQ ASII 


002040 MOV #2040,RS 
165542 MOV OTRSR,RY 


SSE RenK 


; INCORRECT REGISTER MATCHUP 


REPS SPE SPE G SHR R RR RG ReNERGOR 
i 


1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
bf 
1 
1 
1 
i 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
t 
1 
1 
1 


a 





dz 


DZTRA. HED 


0 b= 0 B02 = 0 0 9-0 ho po ho 9-0 


A a a a at ra 


3 


ONd00O OOOOOOO00000 200000 
0-0 sh 0 0 me ee ee 


1 
1 
b 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
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1 
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MACYL1 27(1006) 22-SEP-76 12:30 PACE 44H 
13-APR-76 00:50 SUB-TEST ROUTINE 


001402 001244 MOV TRSR, REGIST 
ERROR 1 . 
TYPEL 
STAGAS=$TAGAS+1 


JSR PC, TESTG 
RTS PC 


; INCORRECT REGISTER MATCHUP 
‘ 


4 Facies TESTS FOR TAPE TRANSPORT ON LINE AND EXITS WHEN 


A=. 
TESTN: 


PC 
SOTTIG, STR 
,» MUOLN 
#81710, dTRSR 
AS12 

TEMP 

64S 

#207, JTPDBR ;RING THE BELL 


le 


;EXIT IF ON LINE 


oS 
2 


es ee 


4 
Br9cns=stacoge1 
IT #8IT15,aTRCR 
BE ASI 


8 
8 


;ERROR-BIT WAS NOT CORRECT 


bbs 
= = 
= = 
Ie 


165426 
165420 


‘ 


GWes HIRDINA SEEDS ARES 
8 
3 


+ 
;THIS ROUTI TQ TEST THE FUNCTI 
;BLOCK FROM LOAD POINT THIS IS THE MAIN ID 


eT 
Wide : FUNCTION 
WORD T 


: CO 
Bus DODRESS ; 
:TEST COMMAND REGISTER™ 


SSge Seek 


QoOoOV0NOO0000N 
55 
bo bs 
£o 


FOY 


OZTRAA MACY] 27(1006) 22-SEP-76 12:30 PAGE 4S 
DZTRA.HED 13-APR-76 00:90 SUB-TEST ROUTINES 


014020 001376 001244 MOV TRCR, REGIST 
0140e6 1 ERROR 1 ; INCORRECT REGISTER MATCHUP 
014030 TYPEF ,MWILPFL 

STAGAS=$TAGAS$+1 


ee ae ; TEST THE STATUS REGISTER 


; INCORRECT REGISTER MATCHUP 
STAGAS=STAGAS+1 


PC 


Seem ewe tema nee wwe tera mmo DO MBO OE DOO Meee OOOO OR em Be we mee em oe ewe wee es 


: THIS ROUT I Ts ER TO ee THE TAPE UNIT OFF LINE 
USING THE OFF LINE C 


TESTP: 


$935 


TRYIT ; 
BPC INE  BYINCTION 

-0 WORD COUNT 

0 “BUS DDDRESS 
#BIT10, 9TRSR 

ASI6 


;ERROR-BIT WAS NOT CORRECT 
,» MUNOFLN 


STAGAS=$TAGAS+1 
BIT #81 vis, aTRCR 
BNE AS17 


fa oe ee ee bb b= p= pe 


££ ££ £ 
Sd ned nerd nel ol el oe) on nd 
Se88 susk 8 


;ERROR-BIT WAS NOT CORRECT 


Oo0000 2000 O0000 


ERROR 
TYPEF ,MOFLEFL 


STAGAS=STAGAS+1 
WSITI1.3TRCR 
HOLD, (PC)+4 . TIME PARAMETER 
;USE THIS i A TIME COUNTER 


65535 TICKS ( \ 
D? ENO, LOOP AGAIN 
CETTLE LONGER 


~ 
£ 
~ 
8 


2008 
2009 
10 
i 
1 
1 
2014 
a 
1 
1 
ah 
2021 
2022 
e0e3 * 
2024 
2027 
2028 
2031 
2032 
2033 
2036 
2037 
2038 
2039 
2040 
2041 
e042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2059 
2051 
2052 
2053 


i 
a ai 


am 
m 
oO 


3 


| oe eel 
sw 


peter 
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| DZTRA.HED  13-APR-76 00:00 SUB-TEST ROUTINES 

a0bu 014210 000207 . RIS PC 1 
ees STHIS ROUTINE TESTS THE OFF LINE FUNCTION OF POWER CLEAR WHILE. “ 
es S RERENGING THE FRPe 

soos Busts gue7a7" tae #COEOT.USEA T FUNCTION 

e073 Bisee6 Gt 535 E03060 pepes NOV #-0 ogebe SET yond Fount 

14 12737 026540 MOV #0, USEC SE 
2075 014234 904737 027010 JSR PC’ EOTTST 
e076 014240 013787 001240 MOV HOLD, (PC)+ ;PICK_UP TIME PARAMETER 
olueys bus: WORD USE THIS AS A TIME COUNTER 

so58 14246 905227 000000 Se we ;IF NO,COUNT 1 OF 6553S TICKS 

2080 O'4eS2 001375 BNE 3 * HAS THe TIME EXPIRED? IF NO, LOOP AGAIN 
2081 014254 ? o14244 DEC 64S HAS THE TOTAL TIME EL ? 

e082 aed 001 io BNE :IF NO, GO WAIT A LITTLE LONGER 

ses ois 013787 901240 "MOV HOLD, (PC)+ ;PICK UP TIME PARAMETER 

c08s 014266 678: .WORD 0 "USE THIS WORD AS A TIME COUNTER 

2087 014270 ‘05887 oocon9 le sIF_NO,COUNT 1 OF 65535 TICKS 

2088 ers 13 EOS BNE 638 sHRS THE TINE EXPIRED? IF NO, LOOP AGAIN 
£030 bissoe Britics cont Bre Ege : IF NO, GC bait A tr RL PPERCER 

2092 014304 013727 001240 "MOV HOLD, (PC)+ sBUCK UF TIME PARAMETER 

2033 O43 000000 708: .WORD 0 THIS WORD AS A TIME COUNTER 

2095 O1usie 00S227 of0000 "INC 40 se iJ NO COUNT ‘euReD IE TICKS ae tena 
Shar biases p0s357 014310 Bee t«CO te The Tere tthe EL aPSEDS” 
038 O1i3e9 001372 a BNE 723 NO,GO WAIT A NS TLE LONGER 

2100 014326 052777 1es04e : SPWRCLR, JTRCR TER 

Sigt o1ga3s Ose777 poNooo 1eso3s 73s: BIT  SPURCCR'STRER ee LPaRS? 

102 O1sHe 001374 sates BNE ce IF NO, WAIT ER IT TO CLEAR 

sits Bivse po1ss0 "FORD RELINO S HincTION 

cide DLuSed penaaD Word OF BUS DODRESS 

107 014356 052777 oo4000 165012 BIS #BITL1,aTRCR 

2109 014364 013727 001240 MOV HOLD, (PC)+ ;PICK_UP TIME PARAMETER 

e110 14 000000 7H: .WORD 0 USE THIS WORD AS A TIME COUNTER 

112 O14 pooo00 "INC 80 s1F NO. COUNT 1 OF ICKS 

ate 14376 Nae sacle BNE 7b sHAS THE ane te , LOOP AGAIN 
siis Bison Spr az ve Ore i ie Non rare 1 INF E E 

e117 14406 022777 004020 164762 ‘ cH #4020, 2TRCR TEST COMMAND REGISTER 

5118 Biaaie yeaa o00020 MOV #20,R5 





HO4 


TRaHed {tstaphoee cord MBs FEEr “four nes 


2120 oO14422 017704 164750 MOV JTRCR, RY 
l l 013737 001376 001244 HOY TRCR, REGIST 

1 14434 1040 E OR 1 s INCORRECT REGISTER MATCHUP 
1g 8:4436 ics 005713 YPEF ,MRWOFL 

ies 014442 000021 AS20:  STAGAS=S$TAGAS+! 

1 1 000001 164732 CMP #1, aTRSR ;TEST THE STATUS REGISTER 
e133 if art! f BEQ nest 

5150 piaMee OTS908 SeNeee MOY STRGR.RY 

130 ft pte? 145e 001244 MOV PRSR REGIST 

else O14470 104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
ci 104404 YPEL 

e136 014474 AS21:  STAGAS=S$TAGAS+! 

2137 014474 005777 164712 TST aTRBA ;TEST BUFFER ADDRESS 

5133 it Carte BEQ AS2 

140 O01 i55hs ear MOV a raRs RY 

2141 O14Sie 013737 OO14l2 oO1244 MOV TRBA, REGIST 

elie Bieed 104001 RROR 1 s INCORRECT REGISTER MATCHUP 
gi4s 1 l YPEL 

els 014524 000023 AS22:  STAGAS=STAGAS+1 

2147 Ol 005777 164656 TST aTRUC ;TEST THE WORD COUNT 

Sida Dives | DOT4i1 Bea be 

2149 014532 012705 oo0000 MOV #0,R5 

2150 014536 017704 ieHeHs MOV JTRC, RY 

2151 014542 013737 OO1406 o01244 MOV TRWC, REGIST 

2i52 014550 104001 ERROR l ; INCORRECT REGISTER MATCHUP 
153 014552 104404 YPEL 

gibe 014554 o00024 AS23:  STAGAS=STAGAS+1 

2157 014554 Az. 

2158 O145S4 032777 164620 IT #BIT1,aTRSR 

2159 O1Nebe 001374 A ;WAIT FOR REWIND TO FINISH 
2160 014564 032777 OO0040 164610 - BIT #BITS, aTRSR 

2161 614572 001770 BEQ A ;WAIT FOR LOADPOINT TO SET 
2l62 014574 004737 013662 JSR PC, TESTN 

e163 O1Ne00 094000 164570 BIS #PURCLR,@TRCR  ;DEVICE MASTER RESET 

164 91 032777 OO4000 164562 64S: BIT #PWRCLR,JTRCR INSTRUCTION CLEAR ? 

2165 014614 001374 BNE 64S *IF NO, WAIT FOR IT TO CLEAR 
ibe 014616 000207 RTS 

16 

2168 

2169 

sin 

2172 . THIS ROUTINE CHECKS THE DATA JUST READ BY THE 

2173 *MAG TAPE UNIT AND REPORTS ANY D RORS_ THAT EXIST 

2174 sTHIS cout ALSO CLEARS THE INPUT AREA AFTER TESTING 
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DZTRA.HED 13-APR-76 00: SUB-TEST ROUTINES 


21 
51°F 14629 912701 034636 TESTS: Nov : sINPUT RL SET INDEX 
5178 al ot Babes . yOSEB, RS’ i FRE WORD COUNT 
2181 014634 Oellle CMP OR1, IRE :TEST INPUT 
l 1 14 Q Q 
1 1 ll JRS 
l 14642 lll MOV I 
2185S O14644 010137 oo1e44 R1, REGIST 
e186 14650 1 O1 E ROR | li s INCORRECT REGISTER MATCHUP 
l 14652 104402 005736 ry MROERR 
2188 O14656 010200 v Re, RO 
3183 pcececen-nen-- CONVRT CALL SHOULD GO HERE 
si Gus) pues ae mead hoe 9 
5183 ot INC R3 POCRE MENT BRD COUN 
eis 14664 001363 A NCR TESTING IN 
21% O14666 012700 034636 HOV SINPUT, RO sSET INDEX 
2197 014672 012701 177000 #-1000;R :SET COUNTER 
198 O1467& o00026 Ases: STAGASSSTAGASSI 
199 014676 A=. 

014676 CLR (RO)+ ;CLEAR INPUT AREA 
2201 014700 001376 BNE A CONTINUE CLEARING 
2202 014702 000207 RTS PC 
2203 
2204 
2205 
22065 
2207 
2208 
2209 
an 
2212 : THIS ROUTINE CHECKS THE FUNCTION OF SPACING REVERSE OVER A 
2213 : FILE 
2214 
2215 014704 RUNU: 
2216 014704 012737 000062 014730 MOV #50. ,35 
2217 O14712 005737 014730 2s: TST 
2218 O14716 001001 BNE 1$ 
2219 014720 000207 RTS PC 
2220 014722 005337 014730 1S: DEC 3$ 
2221 O14726 po04ot BR 4g 
cee 014730 3S: 0 

014732 4S: 
2204 
2225 014732 TESTU: 
2226 014732 O04S37 026544 ISR RS, TRYIT 
eee 14736 0014419 .WORD SPACER Finerioy 
22 14740 "WORD 6-0 
2229 014742 000000 “WORD . O suo OObORESS 
2230 O14744 os 003610 164424 emp #3610, 3TRCR TEST COMMAND REGISTER 
2231 014752 OO1412 BEQ AS26 : 


JO4 


eer 27% ) _—. 12:30 PAGE 49 
LaSAPROPE. 005 SUB-TEST — 


014754 012705 003610 MOV #3610,RS 


14760 Wee Aguile MOV - #TRCR, RY 
4 1376 001244 V R, REGIST 
iT 1 HOF OR l s INCORRECT REGISTER MATCHUP 
014774 104403 005761 TYPEF ,MSREFFL 
015000 000027 AS26:  STAGAS=$TAGAS+1 ~* 
915000 022777 002011 164374 CMP #2011, 3TRSR ;TEST THE STATUS REGISTER 
15006 901411 BEQ ? 
015010 Qt 1 MOV #2011,R5 
15014 91 164362 MOV JTRSR, RY 
015020 O01 001402 o01244 MOV TRSR, REGIST 
15026 104001 ERROR | s INCORRECT REGISTER MATCHUP 
015030 104404 TYPEL 
015032 000030 AS27:  S$TAGAS=S$TAGAS+1 
015032 005777: 164354 TST aTRBA ;TEST BUFFER ADDRESS 
015036 001411 BEQ RS0. 
015040 012705 900000 MOV 
015044 017704 164342 MOV sans RY 
015050 013737 OO0141e 001244 MOV TRER, REGIST 
015056 - 104001 ERROR s INCORRECT REGISTER MATCHUP 
015060 104404 TYPEL 
015062 000031 AS30: — STAGAS=STAGAS+ . 
015062 005777 164320 TST JTRWC ;TEST THE WORD COUNT 
015066 001411 BEQ SSI 
bteo7y GLSTOR TeNSOE A 
neat ie 1406 001244 MOV fre, AEG REGIST 
015106 104001 ERROR s INCORRECT REGISTER MATCHUP 
015110 104404 TYPEL 
0151i2 000032 AS31:  STAGAS=STAGAS+1 
015112 000207 RTS PC 


015114 : 
15114 0127 015140 MOV #50. ,3$ 

Bteize 53 iat 2s: TST 3: 

015126 001001 BNE 1$ 

015130 RTS PC 

015132 005337 015140 1S: DEC 3$ 

015136 000401 BR 4§ 

015140 00000 3S: 

0isi42 4g: 

015142 TESTV: 

015142 004537 o26S44 ISR RS, TRYIT be: 
015146 oo0004 .WORD READ : FUNCTION 


we ae ees - - -_ 


KO4 
BSTRATHED  LQCAPROTE ODSSO te eg PET Routines 


2288 015150 000000 «WORD -0 ;WORD COUNT 


2289 015152 “WORD INPUT *BUS DDDRESS 
seat i 1b ae 002204 164214 che $2204, UTRCR Pee, ROAR REGISTER 
15164 res 002204 MOV #2204, RS 
Ba GIN Glo dG oem «=| SY TAG Els 
goad ptese3 seta ERROR 1 s INCORRECT REGISTER MATCHUP 
Sea? 015204 104403 006023 TYPEF ,MREFFL 
98 015210 000033 AS32:  STAGAS=STAGAS+1 
£300 015210 022777 002011 164164 cup #2011, ,aTRSR ;TEST THE STATUS REGISTER 
san ptesse pisaae 002011 MOV #2011,R5 
es Glee Glare UBS ooew «=a 
piesse rea ERROR s INCORRECT REGISTER MATCHUP 
3307 015240 000034 A$33:  STAGAS=STAGAS+! . 
2309 O1524G 022777 034636 164144 CMP #INPUT,JTRBA =; TEST BUFFER ADDRESS 
2310 O01 OOr410 BEQ AS34 
e311 01 127 MOV #INPUT, RS 
e312 015254 017704 164132 MOV JTRBA, RY 
2313 015260 013737 OO14l2 oo1244 MOV TRBA, REGIST 
esi4 015266 104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
e316 015270 000035 —éiCt AS34:  STAGAS=STAGAS+ 
2318 015270 005777 164112 TST QTRWC sTEST THE WORD COUNT 
2319 015274 001410 | BEQ AS3S 
2320 015276 012705 oo0000 MOV #0,R5 
‘| 2321 015302 017704 164100 MOV JTRWC, RY 
. e322 015306 013737 OO1406 oo1244 MOV TRWC, REGIST 
2323 015314 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
ese4 515316 000036 AS3S:  S§TAGAS=STAGAS+! 
2326 O15316 000207 RTS PC 
ze, 
2329 | *THIS ROUTINE TESTS THE FUNCTION OF THE TIME OUT WHILE WRITING 
53 : 015320 TESTU: 
2332 015320 004737 020710 ISR PC, TESTAH 
2333 015304 042777 O00001 164050 BIC #8170, JTRSR 
2334 015332 005077 164050 CLR eau’ ;SET WORD COUNT TO M 
2335 015336 012777 030576 1EHOME MOV #OUTPUT . JTRBA SET BUS ADDRESS AT START 
2336 015344 012777 O00402 164024 MOV auRITE aTRCR T COMMAND REGISTER 
2337 015352 052777 OO000l 164016 BIS ITO, aTRCR *SET THE GO BIT 
2338 015360 S0S03/ 007434 rd CLR ae “CLEAR THE TIMER 
2340 015364 005077 164016 it CLR ITRWC ;RESET THE WORD COUNT 
2341 015370 012777 030576 164014 MOV #OUTPUT,3TRBA RESET THE Bus ADDRESS 
2342 015376 005237 007434 INC TEMP j INCREMENT TIME 
2343 015402 001370 BNE A DELAY MORE 


DZTRAA MACY11 27( 1606) 
DZTRA.HED 13-APR-76 


015500 


015404 


001411 


Bg 


LE 


OF — 
zaa3 


Soe ees 
B33 


000041 


163776 


00S077 
S20 ORAS 


22-SEP-76 12:30 
00:90 


163774 


163754 


163724 


001244 


001244 


163644 


CO1244 


001244 


163546 
163540 


LO4 


PAGE S1 Sig 
SUB-TEST ROUTINES 
Az. 
ah PUT, aTRBA 
nn i ie 
. BNE A 
ci CLR JTRWC 
MOV #OUTPUT, JTRBA 
IN¢ TEMP 
CMP #102602, JTRCR 
BEQ $36 
MOV #102602, RS 
MOV JTRCR, RG 
MOV TRCR, REGIST 
ERROR 
TYPEF ,MWTOFL 
AS36:  STAGAS=STAGAS+1 
MOV JTRSR,R1 
BIC #170000, R1 
CMP #2401,R1 
BEQ AS37 
MOV #2471, RS 
MOV a SR’RY 
MOV THSR, REGIST 
ERROR 
TYPEL 
A$37:  STAGAS=STAGAS+1 
CMP #OUTPUT, JTRBA 
BEQ ASHO 
MOV #OUTPUT RS 
MOV TRBA, Ro 
MOV TRBA, REGIST 
ERROR 1 
TYPEL 
ASHO:  STAGAS=STAGAS+! 
TST aTRWC 
BEQ ASHI 
MOV #0, RS 
MOV TRWC, RY 
MOV TRWC, REGIST 
ERROR 
YPEL 
ASH1:  STAGAS=STAGAS+! 
BIS #PWRCLR, JTRCR 
64$: BIT #PWRCLR, aJTRCR 
BNE 6 
ISR PC, TESTO 


RESET THE WORD COUNT 


FRESE IME s_ ADDRESS 
sDELAY MORE 


;RESET THE WORD COUNT 
;RESET THE BUS ADDRESS 
NT_ TIME 


: INCREME 
*DELAY MORE 
TEST COMMAND REGISTER 


; INCORRECT REGISTER MATCHUP 


;GET THE STATUS 
;CLEAR Bi 
;TEST THE STATUS REGISTER 


s INCORRECT REGISTER MATCHUP 
;TEST BUFFER ADDRESS 
; INCORRECT REGISTER MATCHUP 
;TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


;DEVICE MASTER RESET 
; INSTRUCTION CLEAR ? 
;IF NO, WAIT FOR IT TO CLEAR 


BeSRe 


QOoO00000 COOK00O000000 
bs bs Bs be bs be pe PB b= b= bh ph be pe 


aa 


REPRE REHM 
OOOO Ul £WIluH-O 


yo ot ot i 
ees 


e4e3 


MACY11 27( 1006) 
HED 


22-SEP-76 12: 


13-APR-76 00:90 


015644 000207 


cepa tes 


a8 
a 


ul 
23 


—-—O00 
os be be 


015762 000043 


_-_s- oo --- - 


000000 
163322 
0014 


163412 


001244 


163370 


001244 


06 01244 


‘THIS ROUTINE CHECKS THE FUNCTION OF THE TIME OUT WHILE READING 


PAGE S2 
-TEST ROUTINES 
RTS PC 
TESTX: 
JSR PC, TESTAH 
JSR PC; » TERTCA 
JSR PC; TESTFO 
JSR PC’ TESTFO 
. BIC 6170, aTRSR 
CLR aTR 
MOV SINEUT aTRBA 
MOV #SPACER, JTRCR 
BIS #BIT0, aTRCR 
ISR PC, TESTA 
CMP #102050, 3TRCR 
BEQ $42 
MOV #102050, R5 
MOV R4 
MOV TRCR, REGIST 
ERROR 1 
TYPEF ,MRTOFL 
ASH2:  STAGAS=STAGAS+ 
CMP #2400, JTRSR 
BEQ 43 
MOV #2400, R5 
MOV JTRSR,RY 
MOV TRSR, REGIST 
ERROR 1 -, 
TYPEL 
ASH3:  STAGAS=STAGAS+1 
CMP sINPUT, aTRBA 
BEQ ASHY 
MOV #INPUT, RS 
MOV aTRBA, RY 
MOV TRBA, REGIST 
ERROR 1 
TYPEL 
ASH4:  S$TAGAS=STAGAS+! 
TST aTRWC 
BEQ SHS 
MOV 
MOV Hit RY 
MOV TRWC, REGIST 
ERROR 1 
TYPEL 
ASHS:  S$TAGAS=STAGAS+1 


;SET WORD COUNT TO_MAX 
;SET BUS ADDRESS AT START 
:SET COMMAND REGISTER 

;SET THE GO BIT 


;TEST COMMAND REGISTER 

; INCORRECT REGISTER MATCHUP 
sTEST THE STATUS REGISTER 

| INCORRECT REGISTER MATCHUP 
;TEST BUFFER ADDRESS 

; INCORRECT REGISTER MATCHUP 
;TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 





NO4. 
TRATED 13eAPROTE. 00:86. 12:30 ig TEST ROUTINES 


Be a a SOS IEE oe, ESRI aig. met 
eves tg 2 374 . i 64S TNO WATT a eee IT TO CLEAR 
16114 RTS PC 
2461 
o4be2 
ae ;THIS ROUTINE FORCES A NXM AND BGL DEROR WHILE WRITING 
016116 TESTY: 
SM ES yee ORS TRVIT 
pipise abosee .WORD WRITE FUNCTION 
2470 016130 o00000 -WORD -0 WORD COUNT 
2471 016132 177777 “WORD =1 “BUS DDDRESS 
2472 016134 013727 o01240 MOV HOLD, (PC)+ *PICK UP TIME PARAMETER 
ei73 Oib14 oooodo bu: .WORD 0 USE THIS WORD AS A TIME COUNTER 
2475 O1614e o0Se27 oco0000 “INC #0 IF <N COUNT 1 OF 65535 TICKS 
2476 016146 001375 BNE 66S THE TIME EXPIRED? IF NO, LOOP AGAIN 
2477 O1615G 005337 O16140 DEC 645 ‘Hae THE TOTAL TIME ELAPSED? 
28 16154 001372 sn BNE 66$ ;IF NO,GO WAIT A LITTLE LONGER 
2480 016156 112602 163212 “ OMP #112602,3TRCR ;TEST COMMAND REGISTER 
2481 016164 OO14ie BEQ S46 
e482 016166 012705 112602 MOV #112602, RS 
2483 016172 017704 163200 MOV aTRCR, Ro 
2484 016176 013737 001376 oo1244 MOV TRCR, REGIST 
bibe04 10400 RROR 1 s INCORRECT REGISTER MATCHUP 
eee 16206 104403 006112 YPEF | MWNXFL 
eee 016212 000047 ASHE:  STAGAS=STAGAS+ 
2490 016212 982777 006101 163162 CMP #6101, 3TRSR ;TEST THE STATUS REGISTER 
2491 O16220 001411 BEQ ASH? pint 
2492 Olge22 012705 o0b101 MOV #6101 RS 
2493 016226 017704 163150 MOV JTRSR,R 
2494 Ol6232 013737 O01402 ocole4Ny MOV TRSR, REGIST 
2495 016240 104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
3b Oibe42 104404 TYPEL 
e138 016244 go00S0 ASH7:  STAGAS=STAGAS+1 
2500 ! e777 000001 163140 cHP #1, aTRBA ;TEST BUFFER ADDRESS 
2502 916254 012705 oo0001 MOV #1,R5 
cena 1P5eq ee aT 001244 NOV hh REGIST 
2505 ote 1o4081 "ERROR | s INCORRECT REGISTER MATCHUP 
e508 16274 104404 TYPEL 
2508 016276 000051 ASSO:  S$TAGAS=STAGAS+! 
Et 016276 022777 OO0001 163102 CMP #1 ,aTRUC ;TEST THE WORD COUNT 


eS11 016304 001411 BEQ 





DITRAR MACY11 27 oN ee oF “SEP-76 12:30 PAGE SY 
<TRA. HED 13-APR SUB-TEST ROUTINES 


001244 


ORR RR 
00 urul £: 


: THIS ROUTINE FORCES A NXM DEROR USING BIT 12 


TEST2: 
PC, TESTAH 
sSET COMMAND 


> +d-- pp <6-2 


Bas SEER RRE 


;CLEAR THE WORD COUNT 
CLEAR BUS ADDRESS 
SET GO BIT 


;PICK_UP TIME PARAMETER 
;USE THIS WORD AS A TIME COUNTER 


sIF NO,COUNT 1 OF 6553S TICKS 
HAS THE TIME EXPIRED? IF NO, LOOP AGAIN 
!HAS THE TOTAL TIME ELAPSED? 
IF NO,GO WAIT A LITTLE LONGER 
cup #112602, TRCR ;TEST COMMAND REGISTER 
MOV #112602,R5 7" 
MOV JTRCR, RG 
MOV TRCR, REGIST 
ERROR 
YPEF  ,MBNXFL 
STAGAS=STAGAS+1 
#6101, aTRSR sTEST THE STATUS REGISTER 


2529 
eel 
eSe2 
eSe3 
2524 
2SeS 
2526 
227 
2528 
2523 
25.30 
2531 
ee 
2533 
2534 
e335 
2536 
2538 


G 
Q 
0 
a) 
9 
Q 
| 
0 
0 
0 
0 
a] 
9 
0 
c 
0 
0 
9 
0 
0 
9 


cepceeees 

b= oo 

Ow co 
a 8 


0 6-2 0-+ 0 0b 0 bh be 
wo = 
RY 


od 


; INCORRECT REGISTER MATCHUP 


LES: 


8 


; INCORRECT REGISTER MATCHUP - 


Be ooo 


162700 - ;TEST BUFFER ADDRESS 
BEQ«=aSéY 
ooong2 MOV 
1ee666 | MOV 
Ooi412 oo1244 MOV : 
ERROR | SINCORRECT REGISTER MATCHUP 





DITRAR MACY11 27(1006) 22-SEP-76 12:30 PAGE SS 
DZTRA.HED 13-APR-76 00:90 SUB-TEST ROUTINES 


2568 TYPEL 
ASS4:  S$TAGAS=STAGAS+1 

162642 cHe “ sTEST THE WORD COUNT 
MOV 
MOV stake RY 

001244 MOV TRWC, REGIST 
ERROR 1 
TYPEL 
STAGAS=S$TAGAS+1 


81S @PWRCLR,ATRCR i; Ld RESET 
BIT BPWRCLR,JTRCR  ; " 
4$ 7 FOR IT "to CLEAR 


; INCORRECT REGISTER MATCHUP 


:THIS ROUTINE FORCES @ NXM DEROR USING BIT 13 
TESTAA: 

PC, TESTAH 

WRITE, JTRCR § ;SET COMMAND 

81113 QTRCR 

88IT0,aTRS 

aTRWC sCLEAR THE WORD COUNT 
aTRBA :CLEAR BUS ADDRESS 
aTRCR :SET GO BIT 


HOLD, (PC)+ if K_UP TI rare 
0 THIS TIME COUNTER 


#0 o ikiuat ie urn TICKS 

nee *HAS THE TIME EXPIRED? IF NO, Loop AGAIN 

645 :HAS THE TOTAL TIME ELAPSED? 

cas :IF NO,GO WAIT A LITTLE LONGER 

#122602, ITRCR ; TEST COMMAND REGISTER 

#122602 ,RS 

JTRCR, RG 

TRCR, , REGIST 

, MNXBFL 
STAGAS=STAGAS+1 

46101 ,3TRSR ;TEST THE STATUS REGISTER 

#6101,R5 

TRSR, RY 


R 
TRSR, REGIST 


Sono seh ER EMG 


o 
NN 
on 
£0 


01 
Ql 
Ol 
0} 
Ol 
Ol 
01 
ol 
0! 
A 

1 
01 
01 
01 
0} 
Bt 

1 
01 
01 
01 
i 
Bt 


; INCORRECT REGISTER MATCHUP 


RRR 
22 2 

co oa o 
#8 8 oN 


WM -OWONOUW FW Oo 
Oooo 
Seater 
golsa 


; INCORRECT REGISTER MATCHUP 





DZTRAAR ACYL 27( 1008) 
. HED -76 


LOTR 2 


py oot st 


Eames 


we 
rates 


3 


en ee ee ee ee ee ee ee ee oe ee 


NNINNNNNNNN NNN 
PILHEIVS ESSERRGS 


8 


NQOOOOOOOOOOOOOVOHOO00000000 


OG h- 2h bo BB = &- 3 2 HO &- 2 -  - -  e 


ror 
b+ 
oo 


22-SEP-76 12:30 PAGE Sb 
00:90 SUB-TEST ROUTINES 


1g2422 


001244 


162276 
162270 
162266 


162264 


162214 


001244 


162164 


* ISR PCTE . 
MOV auATE a T COMMAND 

BIS a81T petBIi, ari ;SET THE EXTENDED ADDRESS BITS 

CLR CLEAR THE WORD C 

MOV #160000,aTRBA ;SET UP AN I70 pace REFERENCE 

INC aTRCR i3tt GO BIT 

MOV HOLD, (PC)+ CK UP TIME PARAMETER 

.WORD 0 USE THIS too AS A TIME COUNTER 

NC #0 1 OF 65535 TICKS 

ine 65S | Hes THE Th NE EXPIRED? IF NO, LOOP AGAIN 
DEC 645 HAS THE TOTAL TIME ELAPSED? 

BNE 66S iH NO,GO WAIT A LITTLE LONGER 


CMP #132602,3TRCR ;TEST COMMAND REGISTER 

MOV #132602, RS 
aTR 

MOV TRCR, Rest 

ERROR 

TYPEF —. MNXMFL 

STAGAS=STAGAS+1 

CMP #6101, *OTRSR :TEST THE STATUS REGISTER 








STAGAS=STAGAS+1 | 
CHP 42 TRBA | ;TEST BUFFER ADDRESS © 
ABV 

MOV ae fs RY 

MOV TRBA, REGIST 

RROR 1 s INCORRECT REGISTER MATCHUP 
YPEL 

STAGAS=$TAGAS+1 - 

CMP #1, TRWC sTEST THE WORD COUNT 
BEQ Agé1 ) 


MOV 81.R5 

MOV JTRWC RY 

MOV TRWC, REGIST 

ERROR l ; INCORRECT REGISTER MATCHUP 









STAGAS=$TAGAS+1 





BIS @PWRCLR,JTRCR  ;DEVICE MASTER RESET 
BIT wPWRCLR, an ; INSTRUCTION CLEAR ? 
ane 64S ;IF NO, WAIT.FOR IT TO CLEAR 





:THIS ROUTINE FORCES A NXM DEROR USING BIT 12-13 









; INCORRECT REGISTER MATCHUP 





DZTRAA MACYLI1 2711006) 22-SEP-76 12:30 PAGE 57 
DZTRA.HED 13-APR-76 00:90 SUB-TEST ROUTINES 
1 4 BEQ 
Seay B15828 Srerhe ooe101 FOV eeiGI.RS 
2682 017224 017704 162152 MOV JTRSR.RY 
i : boi 001244 TRSR, REGIST 
1 OR | 
1 1 YPEL 
2586 
2687 017242 O00064 AS63:  STAGAS=S$TAGAS+1 
See 017242 032777 ococ002 162142 BIT #2, JTREA 
2630 017250 001011 BNE ASEY 
sb31 017252 912705 oo000e MOV #2,85 
2692 017256 017704 162130 MOV JTRBA, RY 
2693 Oi 7ebe Ols737 OOl4i2 on1244 MOV TRBA, REGIST 
2694 O01 104001 ERROR | 
gb 017272 104404 TYPEL 
eee? 017274 000065 ASE4Y:  STAGAS=S$TAGAS+1 
2699 017274 022777 000001 162194 CMP #1, ITRWC 
Soor Oteaos Breree | opo0N Bo ee 
Son Bi saec Bt 1620 MOV JTRWC, RY 
e703 017314 013727 OO1406 001244 MOV TRWC, AEcrsT 
OY 017322 104001 ERROR 1 
e70s 017324 104404 TYPEL 
3707 017326 OO00EE ASES:  STAGAS=STAGAS+1 
2709 017326 052777 oD40n0 16204e BIS #PWRCLR, ITRCR- 
2710 017334 030777 OO4O00 162034 64S: BIT #PWRCLR, JTRCR 
2711 017342 001374 BNE 4g 
ele 5i7344 pasa? T 
C71 eaten ener nnnn ene eeeennee 
15 
i 
17 017346 TESTAC: 
2718 017246 004737 020710 JSR PC, TEST 
2719 017352 004737 OeSé0s JSR PC, TESTCK 
2720 17356 904737 025626 JSR PC’ TEST 
- el Ol 004537 026544 J5R RS’ TRYI 
2722 017366 OO0004 -WORD READ 
723 ot “WO -77 
1 “WORD INPUT 
01 Oi 001240 MOV HOLD, (PC)+ 
017400 900000 bus: .WORD 0 
17402 665: 
O1 005227 ojo000 INC #0 
2729 017408 001375 BNE 66S 
2730 017410 005337 017400 DEC 645 
2731 17414 001372 BNE 665 
# 17416 65S: 
2734 O17416 022777 102204 161752 CMP #102204, aTRCR 
2735 817424 001412 BEQ ASEE 


' 
| 
i 
| 
| 
' 


EOS. 


: INCORRECT REGISTER MATCHUP 


; TEST BUFFER ADDRESS 


; INCORRECT REGISTER MATCHUP 


; TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


Sree eree eee ee eee eee ee eee ewe oreo ooo oooooeo--} 


‘THIS ROUTINE SORCS A READ COUNT DEROR WHILE READING A LONG RECORD 


: TION 
; WORD COUNT 


$S 
:PICK UP TIME PARAMETER 
HIS WORD AS A TIME COUNTER 


COUNT 1 OF &5535 TICKS 

HE TIME EXPIRED? IF NO, LOOP AGAIN 
HE TOTAL TIME ELAPSED? 

IF NO,GO WAIT A LITTLE LONGER 


; TEST COMMAND REGISTER 


Ss 
a 


; FOS 
Ra scapRore O0sd0 Ot Qua PET RouTINES 


BSS SSS ESRSSASE SL SASSAE ANTES AEDS PEEEPEE SSR 


S888 
dg 
QNooo0Nd00000 


= 


017426 012705 102204 MOV #102204, RS 
017432 017704 161740 MOV @TRCR. RG 
aia 013737 001376 oo1244 V TRCR, REGIST Seeeenllt Gnuieins aaa 
ade 1 006333 F ,MRCFL ; 
017452 000067 AS6E:  STAGAS=STAGAS+1 
pi7eR 003001 161722 cup #2001, 2TRSR ;TEST THE STATUS REGISTER 

14} Q 
O174be 16708 003004 MOV #3001 , RS 
at 3 2 Abt aag 001244 Nov PReR REGIST 
1 104001 ERROR | s INCORRECT REGISTER MATCHUP 
017502 104404 | 
017504 000070 AS67:  STAGAS=STAGAS+! . 
017504 022777 035034 161700 CMP #INPUT+176, JTREA ;TEST BUFFER ADDRESS 
Bias HEETHE cosy my th 
i oc i 1666 SOV strona 
pt 7ese pias ? AB tees 001244 MOV PROS REGIST 
017532 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
017534 1 . 
017536 000071 AS70:  STAGAS=S$TAGAS+! 
017536 005777 161644 TST aTRWC sTEST THE WORD COUNT 
017542 001411 BEQ AS71 
017544 012705 ooco00 MOV #0, RS 
017550 017704 16163e MOV aTRWC, RY 
017554 013737 OO1406 o01244 MOV TRWC, REGIST 
017562 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
017564 104404 TYPEL 
017566 200072 AS71:  S$TAGAS=STAGAS+1 
l 4000 161 B #PWRCLR,JTRCR  ;DEVICE MASTER RESET 
1388 38555 ata 1b 1806 64S Bt #PWRCLR;JTRCR : INSTRUCTION CLEAR ? 
017602 001374 BNE 4S *IF NO, WAIT FOR IT TO CLEAR 
017604 000207 RTS P 

STHIS ROUTINE FORCES A READ COUNT DEROR WHILE READING A SHORT RECORD 

17606 j TESTAD: , 
17606 004737 020710 ISR PC, TESTAH 
17612 004737 Oe5606 JSR PC’ TESTCK 
17616 004737 025626 JSR PC; TESTEK 
17622 004537 O26544 JSR RS’ TRYIT ses 
17626 O00004 .WORD READ * FUNCTION 
17630 77677 WORD 101 ‘WORD. COUNT 
1 : INPUT * BUS 
17634 013727 001240 MOV HOLD, (PC)+ *PICK UP TIME PARAMETER 
17640 00000 64$: .WORD O "USE THIS WORD AS A TIME COUNTER 


Gos 


DZTRAA MACY11 27(1006) 22-SEP-76 12: 
DZTRA. HED 4 70069 30 oodles T ROUTINES 


017642 
017642 005227 pooooo ~ | INC #0 IF NO COUNT 1 OF 65595 I oan neces 
Soad BiSedR 017640 : Be CBR Hee THe raya tT ye a 
27% O17ES4 OOl372 BNE 66$ -IF NO,GO WAIT A LITTLE 
2797 017656 65S: 
55dg 017656 022777 102204 161512 CMP - 9192204, JTRCR ;TEST COMMAND REGISTER 
‘| 2800 017664 001411 BEQ AS72 
eee Oi ere 8 Ieie00 NOV atpeeoaro 
Bie See Apt 6 oo1244 MOV FRR, RE REGIST 
2804 017704 104001 ° = ERROR s INCORRECT REGISTER MATCHUP 
280S 017706 i04404 TYPEL 
e507 S58 017710 000073 | AS72:  S$TAGAS=STAGAS+! 
- p809 017710 022777 003001 161464 _ CMP #3001, ITRSR ;TEST THE STATUS REGISTER 
‘2810 017718 OO1411 ' BEQ nS73 
Seip pissed BtSsOs SeTaSe NOY STRGA’ RG 
. ste ie niece 1402 001244 MOV Hee REGIST 
2814 017736 104001 _ ERROR s INCORRECT REGISTER MATCHUP 
esi 017740 104404 7 TYPEL 
e517 017742 000074 AS73:  STAGAS=STAGAS+1 
2819 017742 022777 O3S5036 161442 CMP #INPUT+200, JTREA ' sTEST BUFFER ADDRESS 
2820 017750 OO1411 BEQ AS74 
2821 017752 012705 035036 MOV #INPUT+200, RS 
2822 -017756 017704 161430 MOV a RY 
2823 017762 N13737 O01412 oo1244 MOV TRBA, REGIST 
2824 O01 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
2825 017772 104404 | TYPEL 
ses BSS 017774 000075 | AS74:  S$TAGAS=STAGAS+1 *: 
case 017774 022777 177777 161404 --°. CMP #-1, JTRWC ;TEST THE WORD COUNT 
2930 O20002 o01411 BEQ AS7S 
2831 O20004 o12705 1 | MOV #-1,R5 
eB3e 020010 917704 161372 -. MOV TRAC, RY 
020014 013737 O01406 oo1244 MOV TRWC, REGIST 
2834 O20022 104001 | ERROR 1 s INCORRECT REGISTER MATCHUP 
oB35 020024 104404 _ TYPEL 
2837 O20026 000076 AS7S:  S$TAGAS=STAGAS+1 
see 020026 004000 161342 ' BIs #PWRCLR,@TRCR DEVICE MASTER RESET 
2849 34 777 OO4000 161334 64S: BIT #PWRCLR, JTRCR s INSTRUCTION c LEAR? 
2841 2 001374 64S IT TO CLEAR 
2e42 Oe0044 RTS PC 
Sid Sn aitanant PURE og ocean eke emer , 
2845S : THIS ROUTINE oGtcKs THE FUNCTION OF SPACING REVERSE WITH A 
46 *SHORT WORD C 





HOS 


BSTRA HED tscaPhoee OOTSO ee ee tee Routines 


Seber Rene Mat Meeee 


a 


BUELL LE REESE 


BRASS Re aea 


0201 


004737 
7 


Bea 
= 

-— 
-OnN) 


=—B8R 


-O00 
as 
— 


qn 3 


a3 


a 


ee 


+ 


zx 
— 
<= 
~ 
_ 


rong 
oO 
es 


SR 
aa 


8 sEeeP 
BS 2Eas8 


020710 
OeS&06 


161300 


001244 


161252 


001244 


001244 


161174 


001244 


TESTAE: 
JSR PC, TESTAH 
yee RS’ TRY 
WORD BBAcEN : FUNCTION 
.WORD -77 “WORD COUNT 
.WORD 0 :BUS DDDRESS 
CMP #3610, JTRCR ; TEST COMMAND REGISTER 
BEQ AS76 
MOV #3610,RS 
MOV JTRCR, RY 
MOV TRCR, REGIST 
ERROR 1 s INCORRECT REGISTER MATCHUP 


AS7E: STAGAS=STAGAS+1 


CMP #2001, 3TRSR ; TEST THE STATUS REGISTER 
BEG AS?77 


HOV TROR’ RG 


MOV TRSR, REGIST 


ERROR | s INCORRECT REGISTER MATCHUP 
TYPEL 
AS77: STAGAS=STAGAS+1 
TST aTRBA ;TEST BUFFER ADDRESS 
BEQ A$100 
MOV #0,R5 
MOV JTRBA, RY 
MOV TRBA, REGIST 
ERROR 1 s INCORRECT REGISTER MATCHUP 


P$100: STAGAS=STAGAS+! 
CMP #177701 ,@TRUC sTEST THE WORD COUNT 


BEQ $10 
MOV #177701,RS 

MOV JTRWC, RG 

MOV TRWC, REGIST 

ERROR 1 s INCORRECT REGISTER MATCHUP 


RTS PC 


THIS ROUTINE CHECKS THE FUNCTION OF SPACING WITH A LONG WORD COUNT 


TESTAF: 
JSR PC, TESTAH 
JSR PC, TESTCK 


DZTRAA MACYL1 At 
DZTRA.HED = 13-APR- 


io 


020250 
decess 


004537 026544 
001410 


bs0ee6 bo0800 


O2ed2be 022777 


Osde7e 


= 


020314 
020314 


161106 
001244 
161060 


001244 


001244 


161006 


001244 


22-SEP-76 12:30 PAGE t1 


SUB-TEST ROUTINES 


A$1C2: 


A$103: 


ASiO4: 


BE 
- MOV 
MOV 


ISR RS, TRYIT 
.WORD SPACER 
“WORD =191 

- 0 

CMP #3610, 3TRCR 
BEQ AS! 

MOV #3610,R5 
MOV TRCR’R4 
MOV RCR, REGIST 
RROR 1 

YPEL 
STAGAS=STAGAS+1 

CMP #2001, 2TRSR 
BEQ AS1O3 

a #2001, RS 
HOV fran Re REGIST 
jeune 

TST JTRBA 

BEQ AS104 
MOV #0.R5° 
MOV oTREA RY 
MOV RBA, REGIST 
STAGAS=STAGAS+1 
CMP 8177677, aTRWC 

#1 8177672, RS 

MOV Truc, eises 
ERROR 
STAGAS=STAGAS+1 
RTS PC 


yo 

‘BUS ss 

: TEST COMMAND REGISTER 

s INCORRECT REGISTER MATCHUP 


;TEST THE ‘STATUS REGISTER 


; INCORRECT REGISTER MATCHUP 


;TEST BUFFER ADDRESS 


; INCORRECT REGISTER MATCHUP 


;TEST THE WORD COUNT: 


; INCORRECT REGISTER MATCHUP 


; THIS ROUTINE. TESTS THE END OF FRE Se ICING FUNCTION 


BY GOING FAST FORWARD TO END OF T 
TESTAG: 


64S: 


BIS sPURCLR, aTRCR 
BIT SPURCLR, JTRCR 
BNE 

MOV T,OTRER 
BIC 061 ° Pcs 

MOV #-1 

MOV #-1, raTRGR 


VICE MASTER RESET 
jaws ee IT TO CLEAR 
1 COMNAHD REGISTER 

AR INHIBIT 

BUFFER RODRESS 

WORD COUN 


44m 


JOS 
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DZTRA.HED 13-APR-76 00:50 SUB-TEST ROUTINES 
2360 o20472 005277 160700 INC aTRCR SET THE GO SIT 
Soe 7 cee 000200 160676 : T #8177, 3TRSR 
S3e3 Bose 1774 BE a ;BRANCH IF CLEAR 
020506 013727 001240 MOV HOLD, (PC)+ ;PICK UP TIME PARAMETER 
2967 O20Si2 000000 65S: .WORD 0 “ THIS WORD AS A TIME COUNTER 
mic 8 
53e8 RsRet 005227 000000 INC #0 IF NO te in 4 OF G553S Tis enlace 
micne . 
535 NSneS 020512 E Bc tare TIME LAPSERS’ 
2972 020526 001372 BNE 67$ ya Non GO WAIT A LITTLE LONGER 
; BS8235 ours? o1isee GOS: sR PC TESTA 
Sao 020534 022777 003226 160634 CMP #2c26, JTRCR TEST COMMAND REGISTER 
42 41 BEQ AS105 
1 0032 MOV #3226, RS 
1 1 MOV JTRCR; RY 
2979 020554 013737 001376 001244 MOV TRCR, REGIST Li 
2980 O20562 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
e381 Ge0S64 104403 006351 TYPEF ,METFL 
2983 020570 000107 AS106: STAGAS=STAGAS+! | 
S3ee 020570 022777 002201 160604 CMP #2201, 3TRSR sTEST THE STATUS REGISTER 
2985 020576 OO1411 BEQ AS107 
2987 020600 012705 002201 MOV #2201,R5 
_ p988 020604 017704 160572 MOV JTRSR, RY 
2989 020610 013737 001402 oo1244 MOV TRSR, REGIST 
2990 020516 104001 ERROR | s INCORRECT REGISTER MATCHUP 
2991 020620 104404 TYPEL 
| e553 5 020622 000110 AS$107: STAGAS=STAGAS+1 
oa 020622 022777 177777 160562 cHP si ;TEST BUFFER ADDRESS 
2997 pepe se 01270S 177777 nV 
fe ie Be ist? oovew fee 
Seca popes aioe, nov s INCORRECT REGISTER MATCHUP 
3001 O20652 104404 TYPEL 
ite ae 020654 000111 AS1IO: S$TAGAS=STAGAS+! 
shoe 020654 022777 177777 160524 CMP #-1, ITRWC TEST THE WORD COUNT 
3006 O20662 001411 BEQ ASIII 
3007 O20664 012705 177777 MOV #-1,RS 
3098 70 017704 160512 MOV JTRUC. RY 
0674 013737 001406 001244 MOV TRWC, REGIST 
3010 020702 104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
2011 020704 104404 TYPEL 
013 020706 000112 ASL11: STAGAS=STAGAS+1 
2015 920706 co0207 RTS PC 


ee ee ee eS — 
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3016 
3017 o Oe eceeee eee eeee ee Sees eeeeeeeseeeeeceeeeeeecaecaaacscoocococcacecaecacaceanus 
1 THI T NSURES THE TAPE IS NOT AT LOAD POINT AND THERE 
Bu 12 208b DATA ON THE T 
1 020710 TESTAH: 
3022 020710 052777 oO4000 160460 SIS #PWRCLR, JTRCR DEVICE MASTER RESET 
3023 020716 032777 OO4000 1604S2 64S: IT #PWRCLR,aJTRCR ; INSTRUC ON CLEAR 
3084 be07e bus : ueNAT OR IT "10 CLEAR 
000040 160446 I #81TS, JTRSR 
a Eve i ska 
73? 013762 J ESTO 
3028 020742 000113 a ASL12: ee 
3086 aan 000207 — RTS pC’ 
3031 a 
3 ?THIS ROUTINE DELAYS ABOUT 10 SECONDS 
3035 020750 TESTA: 
3036 020750 012737 900024 020774 ~ MOV #20. ,3$ 
3037 020756 005737 020774 2S: TST 3$ 
2038 020762 00100 BNE 1$ 
020764 ie, RTS PC 
3040 020766 005337 020774 1S: 
3041 020772 000401 4g 
3042 020774 3$: 0 
2043 020776 ; 4g: 
020776 013727 001240 MOV HOLD, (PC)+ sPICK UP TINE PARAMETER 
3045 021002 o00000 64$:  .WORD O USE THIS WORD AS A TIME COUNTER 
3046 021004 665: 
3047 021004 ooo000 INC #0 - NO, COUNT 1 OF 6553S TICKS 
3048 O21010 001375 BNE 66S :HAS THE TIME EXPIRED? IF NO, LOOP. AGAIN 
3049 21012 021002 DEC 645 ;HAS THE TOTAL TIME ELAP 
3050 021016 001372 BNE 665 IF NO,GO WAIT A LITTLE PBNGER 
3051 021020 65S: 
3052 021020 000207 RTS PC 
- 3053 
spec ileal Nas Hellas. MBE ELT OO LP R ? 
3056 sTHIS ROUTINE TELLS THE OPERATOR 10 RESET THE 
3057 TAPE TRANSPORT AND TESTS THE REGISTERS AFTER HE DOES 
shee 021022 - - TESTAK: 
3060 O2l022 004737 012624 JSR PC, TESTI 
3061 O21026 104402 006370 TYPE  ,MASTU 
ses 021032 fs. 
3064 021032 005237 007434 ~« INC TEMP 
3065 021036 001003 BNE 64S: 
3066 O210%- 012777 o00207 160144 MOV #207 , JTPDBR sRING THE BELL 
3067 O21046 ' 64S: 
3068 O21046 032777 O02000 160326 BIT #81T10, ITRSR 
3069 021054 001366 BNE A BRANCH IF CLEAR 
3071 
























LOS 
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DZTRA.HED 13-APR-76 00:00 SUB-TEST ROUTINES 


3072 021056 013727 001240 MoV HOLD, (PC)+ sPICK_UP TIME PARAMETER 
¢3 i 2 000000 BSS: .WORD OO ‘USE THIS WORD AS A TIME COUNTER 
1064 000000 “INC #0 sIF NO,COUNT 1 OF 65535 TICKS 

3076 21079 0013 BNE 6 : HAS THE TIME EXPIRED? IF NO, LOOP AGAIN 
0 Deidre o0533 021062 DEC 65 HAS THE TOTAL TIME ELAPSEL?’ “eee 
78 021076 1372 =e SNE 675 IF NO,GO WAIT A LITTLE LONGER 
p88 11 100000 160270 #1 JTRCR ;TEST COMMAND REGISTER 

spe antes nates BNE ee he 

3082 021110 MOV #100026, RS 

3083 O21114 9 160256 MOV JTRCR, RY 

3084 021120 013737 001376 001244 MOV TRCR, REGIST 

3085 Oelles 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 

3085 021130 104403 006413 TYPEF ,MMRSFL 

384 021134 o00114 AS113: STAGAS=STAGAS+! 

383 021134 017701 160242 MOV JTRSR, R1 -GET STATUS 

3031 021140 O42701 Ooo0040 BIC #BITS,R1 CLEAR BIT S 

3093 021144 1 000001 CMP #1,R1 sTEST THE STATUS 

3094 021150 athe BEQ agsii4 

3095 021152 000001 MOV # Bs 

30% 21156 017704 160220 MOV JTRSR 

3097 Oellbe 013737 O01402 oo1244 MOV aRSR REGIST 

3098 021170 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 

3033 021172 104404 TYPEL 

3101 021174 000115 AS114: STAGAS=STAGAS+1 

3103 021174 005777 160212 TST JTRBA ;TEST BUFFER ADDRESS 

3104 021200 001411 BEQ ASI1S 

105 Oele02 012705 ooo000 MOV #0,R5 

3106 021206 017704 160200 MOV JTRBA, RY 

3107 Oelele 013737 OO01412 oo1244 MOV TRBA, REGIST 

3108 Oel¢e0 104001 RROR 1 s INCORRECT REGISTER MATCHUP 

3103 1222 104404 YPEL 

3111 021224 000116 AS1IS: STAGAS=STAGAS+1 

3113 O21 160156 TST aTRUC TEST THE WORD COUNT 

3114 O212e30 001411 BEQ AS116 

3115 Oelez2 012705 MOV #0,R5 

3116 021236 017704 160144 MOV JTAWC, RY 

3117 Oele42 013737 O01406 oco1244 MOV TRWC, REGIST 

3118 Oeleso 104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
3113 O21252 104404 TYPEL 

lel 021254 000117 ASII6: STAGAS=STAGAS+ 

3123 021254 000207 RTS PC 

3104 

rr x 
ieé THIS ROUTINE WRITES "RECORDS PAST EOT 





——— ee ee oo 
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DZTRA. HED 3-APR-76 00:50 SUB-TEST ROUTINES 

128 021256 TESTAL: 

129 021256 032777 000200 160116 BIT #8117, aTRSR 

i? 5 1See Ole? 1026 026534 AOU BeatoT USEA SET FUNCTION 
134 021274 Ole737 O00001 026536 MOV #--1 ,USEB ;SET WORD COUNT 
3133 021308 012737 177777 Oe6S40 MOV #-1, USEC ;SET BUS ADDRESS 
Te 021310 004737 027010 sat JSR PC, EOTTST 

136 021314 Az. 

-3137 021314 000200 160060 BIT #8117, aTRSR ah | 

3138 021322 po1774 BEG A sBRANCH IS CLEAR 

1 1324 o00040 160044 BI #BITS,aTRCR 

Sint petsa4 Ose777 02000 160034 Bit ssitio,aTrcR «NCH JF SET 

ati pe t333 bar S64 BEQ A : ;BRANCH IF CLEAR 

3143 O21 344 032777 oo0200 160024 BIT #8117, aTRCR 

siv4 1352 001760 oe BEQ A ;BRANCH IF CLEAR 

3146 021354 000120 AS117: STAGAS=STAGAS+1 

3147 021354 012737 000016 026534 MOV #ERASE , USEA -SET FUNCTION 
3148 021362 012737 177000 Op6s36 MOV #- 1000; USEB ;SET WORD COUNT 

3149 021376 012737 030576 O26540 MOV sOUTPUT, USEC ;SET BUS ADDRESS 
150 021376 004737 027010 JSR PC, EOTTST 

3151 O21402 052777 OO400D 157766 BIS #PIRCLR,JTRCR  ;DEVICE MASTER RESET 
3152 021410 032777 OO4000 157760 64S: BIT #PWRCLR,JTRCR INSTRUCTION CLEAR ? 
3153 021416 001374 BNE 64S :IF NO, WAIT FOR IT TO CLEAR 
3155 021420 012737 oO0012 o21444 - _ MOV #10. ,3$ 

3156 021426 005737 O21444 2s: TST 3 

3157 021432 001001 BNE 1$ 

3158 021434 RTS PC 

3159 021436 005337 o21444 1S: DEC 3$ 

3160 Oel44e 000401 BR 4§ 

3161 021444 3$: 0 

3i62 Oel446 4g: ; 

3163 O21446 012737 o00402 026534 MOV #WRITE,USEA -SET FUNCTION 
3164 021454 012737 177700 026536 MOV 4-100 SEB ;SET WORD COUNT 

165 021462 012737 030576 026540 MOV #OUTPUT. USEC ;SET BUS ADDRESS 
166 021470 004737 027010 JSR PC, EOTTST 

3168 021474 o02602 157674 CMP #2602, JTRCR TEST COMMAND REGISTER 
3169 Oelso2 Ooo1412 BEQ AS120 

3170 021504 012705 oo26 #2602,R5 

3171 021510 17704 157662 MOV JTRCR,RY 

3172 021514 013737 001376 001244 MOV TRCR, REGIST . 

3173 OeiS22 104001 ERROR ; INCORRECT REGISTER MATCHUP 
3174 021524 104403 006433 TYPEF ,MWPETFL 
176 021530 000121 AS120: STAGAS=STAGAS+1 

3178 021530 022777 O02201 157644 CMP #2201, 3TRSR ;TEST THE STATUS REGISTER 
3179 O21536 OO1411 BEQ ASI21 

3180 021540 012705 oo2201 MOV #2201,R5 

3181 O2i544 017704 157632 MOV TRSR, RY 

3182 O21550 013737 OOL402 oD1244 MOV TRSR, REGIST 

3183 021556 104001 ERROR 1 


; INCORRECT REGISTER MATCHUP 
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OZTRA.HED 13-APR-76 00:90 SUB-TEST ROUTINES 


TYPEL 
AS121: STAGAS=STAGAS+1 


WW 


b-* b= bb ~~ 6 & - Pp pe 


aTRWC ;TEST THE WORD COUNT 
ASI22 

#0,R5 

JTRWC, RY 

TRWC, REGIST 

1 s INCORRECT REGISTER MATCHUP 


STAGAS=$TAGAS+1 


Stotntnteteintnt tater at ate 
SSSIRRLGG SSS GRRE 


ia 


::THIS ROUTINE TESTS THE FUNCTION OF SPACE REVERSE PAST ECT 
TESTAM: . 


fore 
are 


PC, TESTAL 


026534 #SPACER, USEA ’ sSET FUNCTION 
0 536 1, USEB SET WORD COUNT 
4 #-1, USEC ;SET BUS ADDRESS 
JSR PC,EOTTST 


157S2e MP S210, STRCR ; TEST COMMAND REGISTER 


pee 


001244 
; INCORRECT REGISTER MATCHUP 


3210 
gell 
3el2 
3213 
3214 
asi3 
3519 
3218 


»MSRETFL 
STAGAS=STAGAS+1 
157472 w2201,2TRSR TEST THE STATUS REGISTER 


001244 
; INCORRECT REGISTER MATCHUP 


; TEST BUFFER ADDRESS 


; INCORRECT REGISTER MATCHUP 
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DoTRA. HED 13-APR-"6 90:90 ~ SUB-TEST ROUTINES 


021786 A$125: SfAGAS=$TAGAS+! | 

921786 2°77 o0000: S742 sTEST THE WORD COUNT 
4 909001 MO : 

EE 187400 +e RY 


001408 oo1244 MOV TRWC, REGIST 
1 s INCORRECT REGISTER MATCHUP 


THIS ROUTINE TESTS THE FUNCTION OF READING PAST EOT 
; TAPE MUST BE POSITIONED FIRST 


TESTAN: 
026534 MOV 


026536 
o26540 


#READ,USEA *SET FUNCTION 
8-100; USE sSET WORD COUNT 
sINPUT USEC :SET BUS ADDRESS 
PC, EOTTST 
157320 cn ; TEST COMMAND REGISTER 
#2204,R5 
MO JTRCR, RY 
001244 TRCR, REGIST 
ERROR 1 
, MRPETFL 
STAGAS=STAGAS+! 
157270 Mp #2201, ATRSR sTEST THE STATUS REGISTER 
82201,R5 


3 4 
001244 0 TRSR, REGIST 


; INCORRECT REGISTER MATCHUP 


8 


s INCORRECT REGISTER MATCHUP 


O00 


& OeeEEe 2 
#3 


B 
Ww 
— 


STAGAS=$TAGAS+1 


Is? TRWC ;TEST THE WORD COUNT 
MOV #0, R5 
MOV JTAWC, RY 


TRWC, REGIST 
l , sINCORRECT REGISTER MATCHUP 


TREBESR 


MOV 
ERROR 
TYPEL 
STAGAS=STAGAS+1 


RTS PC 


8 8 RESRRES 
& & 
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OZTRA.HED © 13-APR-76 00:90 » SUB-TEST ROUTINES 


- }THIS ROUTINE WRITES A EOF PAST END OF TAPE 


TESTAO: 
Zz - PC, TESTAL 


’ @WEOF , USEA “SET FUNCTION 
OSes SET word ROUNT 
;SET BUS ADDRESS 


026534 

026536 8--] 

626540 . 8-1, USEC 
Pc, EOTTST 

157146 #3234, ITRCR : TEST COMMAND REGISTER 

| A$132 


83234, RS 
JTRCR,RY 
001244 MOV TRCR, REGIST 
. , MWEFETF 
STAGAS=STAGAS+1 . 
1S7116 #2211 ,TRSR ;TEST THE STATUS REGISTER 
82211,R5 


TRSR: RY 
001244 MOV TRSR, REGIST 


Sissi eee 


-— 
Ss 
o~ 


; INCORRECT REGISTER MATCHUP 


8 


esses 
WONIMUI£CLITUeH-O 
aase5 bE 


; INCORRECT REGISTER MATCHUP 


—- O00 
$2 
® 38 


STAGAS=STAGAS+1 
;TEST SUFFER ADDRESS 


ca 


3320 
3321 
s3ee2 
3 
3325 
3326 0001 
: 3327 
3328 
3329 
3330 
s33¢ 


-O00 
He 
8 
Pe 


2 
8 


; INCORRECT REGISTER MATCHUP 


: 


STAGAS=$TAGAS+1 . 
CMP TE ia ;TEST THE WORD COUNT 
RS 


i! 


BEQ 

MOV 8! 

MOV JTRWC, RY 
TRHC, REGIST 


SSeees 
fr 
S2R- 


3 


; INCORRECT REGISTER MATCHUP 


: 


YPEL 
STAGAS=$TAGAS+1 


Bg 


:THIS ROUTINE TESTS THE FUNCTION OF SPACING REVERSE OVER 
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HED :90 SUB-TEST ROUTINES 


;END OF FILE PAST EOT 


022376 TESTAP: 
022376 004737 022170 JSR PC, TESTAO 

012737 901410 026534 MOV #SPACER, USEA -SET FUNCTION 
BSSute BiSea> Geeeee SScEN NOV a-7 1 USE ~ WORD COUNT ADDRESS 
O22424 Sage 435010 JSR —s- PC, EOTTST pee 
022430 022777 003610 156740 CMP #3610, 3TRCR TEST COMMAND REGISTER 
Oe 901412 BEQ AS136 
Been Gierey Saal Oe | 
BeSdcn ic 001376 901244 MOV FRCR REGIST ; 
0220456 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
022460 104403 006632 TYPEF ,MREFETF. 
o22464 000137 A$136: STAGAS=$TAGAS+1 | 
022464 022777 902211 156710 CMP #2211, 9TRSR sTEST THE STATUS REGISTER 
O2247e OO1411 BEQ A$137 
022474 012705 oo2211 - MOV #2211,R5 
O22s00 017704 IS6676 MOV JTRSR: RY 

013737 001402 od1244 MOV TRSR, REGIST 
822512 104991 ERROR 1 ; s INCORRECT REGISTER MATCHUP 
022514 104404 —-FYPEL 
022516 O00140 AS137: - STAGAS=STAGAS+1 
022516 022777 177777 156666 CMP #-1, 37RBA :TEST BUFFER ADDRESS 
022524 OO1411 - BEQ As140 
022526 012705 MOV #-1.R5 
O22532 017704 156654 . MOV JTRBA, RY 
022536 013737 OOl4l2 001244 MOV TRBA, REGIST 
022544 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
022546 104404 TYPEL 
o22550 000141 A140: S$TAGAS=STAGAS+! : ; 
022550 922777 O00001 156630 CMP #1, 9TRWC - TEST THE WORD COUNT 
022556 OO1411 BEQ asi41 
022560 912705 ooo0o. Ct MOV #1,R5 
022564 017704 156616 MOV JTRWC, RY 
622570 013737 001406 oo1e44 MOV TRWC, REGIST 
022576 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
022600 104404 TYPEL 
o22602 00142 ASI41: STAGAS=STAGAS+1 
022602 000207 RTS PC 


022604 TESTAG: 


DZTRAR MACYLI er 1006) 22-SEP-76 12:30 PAGE 70 
13-APR-76 00: 


DZTRA. HED 50 SUB-TEST ROUTINES 
3108 022604 004737 022376 ISR PC, TESTAP 
MOV #READ, USEA -SET FUNCTION 

sit le Gl GBR) YS ser word Eb 

M12 02224 012737 177777 O26540 MOV #-1, USEC sSET BUS ADDRESS 
ai 022632 004737 027010 JSR PC, EOTTST 

iS 022636 022777 O02204 156532 CMP #2204, JTRCR TEST COMMAND REGISTER 
3415 22644 OO14le BEQ AsI42 

$412 022646 b1¢70s ogee04 HOV sce04 RS 

sui psSeee ae Aaesse 001244 MOV PRCR REGIST 

3420 022664 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
sel G22666 i04403 006632 TYPEF  ,MREFETF 

$423 022672 000143 AS142: STAGAS=S$TAGAS+1 

3425 022777 o02211 156502 CMP #2211, aTRSR ;TEST THE STATUS REGISTER 
bt ee aH 

3e7 Oee702 012705 o0e211 MOV 82211,RS 

34e8 022706 017704 156470 MOV TRSR; RY 

3429 Oee7le 013737 O01402 oo1244 MOV TRSR, REGIST 

3430 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
$131 022722 104404 TYPEL 

3433 022724 O00144 AS143: STAGAS=STAGAS+! 

3435 022724 022777 177777 156460 CMP #-1, 3TRBA ;TEST BUFFER ADDRESS 

3436 022732 OO1411 BEQ Asi44 

3437 022734 O12705 177777 MOV #-1,R5 

3428 022740 017704 156446 MOV aTRBA, RY 

3439 022744 013737 O01412 oco1244 MOV TRBA, REGIST 

3440 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
sil bee 104404 TYPEL 

3443 022756 O00145 ASLY4: ° STAGAS=STAGAS+1 

Suue 022756 022777 000001 156422 CMP #1, ITRUC ;TEST THE WORD COUNT 
3446 022764 001411 BEQ Asi4s 

3447 022766 012705 oo0001 #1,R5 

3448 022772 017704 156410 MOV aTRUC RY 

3449 022776 013737 001406 oo1244 MOV RWC, REGIST 

3450 023004 104001 ERROR | s INCORRECT REGISTER MATCHUP 
End 023006 104404 TYPEL 

3453 023010 ood146 ASIYS: S$TAGAS=STAGAS+1 

Suee 023010 000207 RTS PC 

sue § ence ee ne non - 2-2-2 2+ +--+ ----- +--+ --- +--+ --- +--+ +--+ +--+ +--+ +--+ === 
3458 :THIS ROUTINE TRIES TO WRITE ON TAPE WITHOUT A WRITE 

3459 *RING 

3460 

3461 023012 RUNAS: 

3462 Oes0le 012737 000012 023036 MOV #10. ,3$ 

3463 023020 005737 023036 23: TST 3$ 


FO6 
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S464 





001901 
000207 


BNE 1$ 


3465 RTS PC 
3466 023036 1$: DEC 3$ 
? 4§ 
tf 
70 
3471 TESTAS 
3172 023040 052777 OO4000 156330 RIS CLR,aTRCR  ;DEVICE MASTER RESET 
3473 023046 932777 OO4000 156322 64S: BIT ne CLR; aTRCR INSTRUCTION CLEAR ? 
3474 023054 001374 , BNE IF NO, WAIT FOR IT 10 CLEAR 
aic6 3058 pot 37 026544 ISR a TRYIT : 
. WORD {TE  EINCTION 
3477 023064 177700 WORD : WORD COUNT 
EM 023066 030576 WORD OUTPUT BUS DDDRESS 
3480 023070 013727 001240 MOV HOLD, (PC)+ ;PICK UP_ TINE PARAMETER 
3181 be3074 090000 658: : 0 USE THIS WORD AS A TIME COUNTER 
3483 023076 005227 000000 INC 80 sIF NO,COUNT 1 OF 6553S TICKS 
3484 023102 001375 BNE 675 [HAS THE TIME EXPIRED? IF NO, LOOP AGAIN 
-3485 023104 005337 023074 DEC bss HAS THE TOTAL TIME ELAPSED 
3486 023110 001372 BNE 67 IF NO,GO WAIT A LITTLE PBNGER 
3487 Oe3lle 6S: 
4 Bs 023112 022777 142602 156256 CMP #142602,aTRCR  ;TEST COMMAND REGISTER 
3490 023120 001412 _ BEQ AS146 
3491 Desiee b1e70 142602 MOV #142602, RS 
3492 0231206 017704 156244 MOV = JTRCR, RO 
3493 023132 013737 001376 001244 MOV TRCR, REGIST 
3494 023140 104001 RROR 1 s INCORRECT REGISTER MATCHUP 
31% 023142 104403 006702 YPEF  ,MWENFL 
3197 023146 000147 ASLYG: . STAGAS=STAGAS+1 
3499 023146 017701 156230 MOV aTRSR,R1 :GET STATUS. REGISTER 
$500 023152 042701 o00040 BIC #B1TS,R1 sCLEAR UNWANTED BI 
023156 022701 od2004 CMP #2004,R1 sTEST THE STATUS REGISTER 
Oe3ib6e O01411  -BEQ AS147 
3504 023164 012705 oo2004 =. ‘MOV #2004,R5 
3505 023170 017704 156206 MOV JTRSR’ RY 
3506 023174 013737 O0:402 o01244 MOV TRSR, REGIST 
3507 Oe3202 104001 ERROR 1} s INCORRECT REGISTER MATCHUP 
3508 Oe3ze04 104404 TYPEL . 
sic 023206 000150 ASI47: S$TAGAS=STAGAS+1 
3512 : oh 
3513 022777 020576 156176 CMP SOUTPUT,JTRBA ;TEST BUFFER ADDRESS . 
3514 023214 OO1411 BEQ 2 : 
3515 023216 012705 039576 MOV HOUTPUT RS , 
3516 Oe3222 017704 155164 MOV JTRBA, Ro 
3517 Oe3e26 013737 Gol4le oo1244 MOV TRBA, REGIST 
3518 Oe3e34 104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
3519 023236 104404 TYPEL : 





BETRA ED tS CAeRCoe O0SSO ee ee PES Bourines 


000151 


012624 


026544 


143610 
143610 
156026 


001376 


006722 





: ASISO: S$TAGAS=STAGAS+1 
156140 er 8177700, aTRWC 
V 00,R5 
MOV 
001244 MOV TRWC, REGIST 
eat 
ASISL: STAGAS=STAGAS+1 
#PWRCLR, JTRCR 
E558 64S: otf sPuRCLR, aT ReR 


GO6 


; TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


THIS ROUTINE TRIES TO SPACE REVERSE AT LOAD POINT 


TESTAT: 
JSR PC, TESTI 
JSR RS TRYIT 
~WORD SPACER 
“WORD = 
, 0 

156040 - #143610, aTRCR 

Ag1S2 

#143610,R5 

aTRCR, RY 

TRCR, REGIST 

, MSRLPFL 

STAGAS=STAGAS+1 


#2040, dTRSR 
Q ASI 


001244 


A$1Se: 
156010 


OTRSR, RY 
oo1244 TRSR, REGIST 


ASIS3: STAGAS=STAGAS+! 
TST  QTRBA 
ASi54 
#0 
MOV aTR 


BA, RY 
001244 TREA, REGIST 


SFUINCTION 
“WORD COUNT 
:BUS DDDRESS 


;TEST COMMAND REGISTER 


; INCORRECT REGISTER MATCHUP 


; TEST THE STATUS REGISTER 
; INCORRECT REGISTER MATCHUP 
; TEST BUFFER ADDRESS 


; INCORRECT REGISTER MATCHUP 


HO6 


: 


Nay scaPRoe OOsdO eS AREY Routines 


8 
Z 


000155 ASIS4: STAGAS=STAGAS+1 
177777 =1S5732 CMP #-1 ” seme ; TEST THE WORD COUNT 


ao 3 
ee 


3578 
Bi 1 MOV 8- 
7704 155720 MOV aTRUC, RY 
3583 013737 001406 ool1e44 MOV TRWC, REGIST 
3584 bes74 04001 OR | ; INCORRECT REGISTER MATCHUP 
3585 76 YPEL 
2587 023500 200156 ASISS: STAGAS=S$TAGAS+! 
see 023500 052777 OO04000 155670 BIS #PWRCLR,JTRCR ;DEVICE MASTER RESET 
3590 023506 032777 OO40D0 155662 64$: BIT #PWRCLR,aTRCR  : INSTRUCTION LEAR ? 
3591 023514 901374 BNE 64S IF NO, WAIT IT TO CLEAR 
3592 023516 000207 RTS 
3593 
3594 
ES *THIS ROUTINE TESTS THE BUS ADDRESS BITS BY USING A COUNT PATTERN 
3598 
3599 023520 o0so01 TESTAU: CLR Ri sCLEAR COUNT 
3600 Dessee Az. 
3601 923522 010177 155664 MOV R1,aTRBA ;SET BUS ADDRESS 
3602 023526 020177 155660 CMP Ri’ aTRBA ‘TEST BUS ADDRESS 
3603 O23532 001407 BEQ asics 
3604 023534 010105 MOV R1.RS 
3605 023536 017704 155650 MOV JTRBA, RY 
3606 O23542 013737 OO14le 001244 MOV TRBA, REGIST 
3607 104001 ERROR 1 - ; INCORRECT REGISTER MATCHUP 
306 023552 000157 ASIS6: STAGAS=STAGAS+! 
3610 023552 005201 INC Rl s INCREMENT COUNT 
3611 023554 001362 BNE A : CONTINUE 
3612 023556 000207 RTS PC , 
3613 : 
3614 
3615 ar rn tr rt anes * 
3618 -}THIS ROUTINE SPACES REVERSE OVER ID BLOCK 
3618 023560 TESTAV: 
3013 023560 004737 013762 JSR PC, TESTO 
3621 023564 004537 O26S44 ISR RS, TRYIT 533 
3622 023570 001410 .WORD SPACER FUNCTION 
‘3623 023572 177777 “WORD =k :WORD COUNT 
3624 023574 177777 7 “WORD =] _ tBUS DDDRESS 
3627 023576 022777 003610 155572 CMP #3610, aTRCR ;TEST COMMAND REGISTER 
3628 023604 001412 BEQ Asis?” 
3629 Oe 012705 003610 MOV #3610,R5 
3630 Oe36l2 017704 155560 MOV aTRC 


R’RY 
3631 O23616 013737 001376 o01244 | MOV TRCR; REGIST 
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DZTRA.HED 13 
10400 - s INCORRECT REGISTER MATCHUP 
PS Be 3eSe rar 008761 eo BARE ,MSRIFL 
023632 000160 ASIS7: STAGAS=STAGAS+! 
339 ps 02 022777 002061 isssve . CMP #2061, 2TRSR :TEST THE STATUS REGISTER 
3638 023640 00141! BEQ AS1E0 
3638 023642 012705 002061 HOV #2061 ,R5 
#9 pssres ee Nath 001244 Noy Shee RECIST 
3642 023660 104001 ERROR | s INCORRECT REGISTER MATCHUP 
sb43 023662 104404 TYPEL | 
5 023664 000161 ASIG0: STAGAS=S$TAGAS+1 3 
3647 023664 022777 177777 155520 CMP 8-1, JTRSA ;TEST BUFFER ADDRESS 
3648 BEQ AS16i 
a2 my ides 
MOV aTRBA. RY 
3651 O02 MOV TRBA, REGIST 
so5¢ ERROR a s INCORRECT REGISTER MATCHUP 
36 YPEL 
$2 ASI61: STAGAS=STAGAS+! 
$23 %, CMP #-1, JTRWC TEST THE WORD COUNT 
326 peo AS I6e 
3660 MOV RUC, RY | 
3661 MOV TRWC, REGIST 
3668 ERROR 1 s INCORRECT REGISTER MATCHUP 
3664 , | whee 
. 3665 ASIG2: STAGAS=STAGAS+1 
? LR,aTRCR  ;DEVICE MASTER RESET 
Fae bus: BY? SPHRCER STEER A EE TON CLEAR ? | 
3669 6 IF NO, WAIT FOR IT TO CLEAR 
3670 RTS PC ; 
oil sh anadasrntcitotd iecatiaanic i teuintia data aioe mecontce 
3673 ‘THIS ROUTINE READS A ID BLOCK 
Soe; 855798 OON737 O126e4 TESTAW: ee ope TESTI 
07 3774 Bpeas7 nett CLR INPUT ;CLEAR INPUT AREA 
3679 O24000 004537 O26S44 . JSR RS, TRYIT rT 
024004 900004 -WORD READ : FUNCTION 
3681 Oc4006 177777 “WORD =] : COUNT 
3688 024010 034636 "WORD INPUT "BUS DDODRESS 
3684 
3685 oe4012 


022777 002204 155356 CMP #2204,dTRCR = ;TEST COMMAND REGISTER 
oe Oex0e0 001412 BEQ A$163 
3687 Oex0ee 012705 002204 MOV #2204,RS : 


DZTRAA MACY11 27( 1006) 


DZTRA. HED 


SS Noire on Ese SAAS ERSSS 


3 


ABATED IN 


024026 
024032 


13-APR-76 


SOE ees 

bs 
—_ 
& 
ee 
7 


004737 


155344 
001376 


007016 
002021 


002021 
155314 
001402 


004009 
004000 


020710 


ee wee 


001244 


155326 


001244 


155304 


001244 


155246 


001244 


001244 


155154 
155146 
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SUB-TEST ROUTINES 


MOV aTRCR, RY 


~ MOV TRCR, REGIST 


AS16563: 


AS164: 


ASIES: 


:THIS ROUTINE WRITES EVEN PARITY 


TESTAX: 


ERROR Latah, 
STAGAS=STAGAS+1 

CMP #2021, aTRSR 
BEQ Asi64’ 

MOV #2021,R5 
MOV JTRSR, RY 
MOV TRSR, REGIST 
ERROR 

TYPEL 
STAGAS=STAGAS+1 


CMP #INPUT, JTRBA 
AS1ES 
MOV #INPUT, RS 


MOV JTRBA, RY 
TRBA, REGIST 


STAGAS=$TAGAS+1 


CMP #-1, JTRWC 
BEQ AS1b6 


STAGAS=$TAGAS+1 
TST INPUT 
AS167 


INPUT.RY 
INPUT, REGIST 


JSR PC, TESTAH 


; INCORRECT REGISTER MATCHUP 


;TEST THE STATUS REGISTER 


; INCORRECT REGISTER MATCHUP 


;TEST BUFFER ADDRESS 


; INCORRECT REGISTER MATCHUP 


; TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


;TEST INPUT AREA 


; INCORRECT REGISTER MATCHUP 


;DEVICE MASTER RESET 
INSTRUCTION CLE 
IF NO, WAIT FOR IT "to CLEAR 


DZTRAA 


DZTRA. HED 


MACYL1 


024240 
024244 


020177 


8 
toon 
<= 
~ 
oOo 


—-O00 
Ore 


LS ki 


O26S44 


154754 


000000 
Ap tans 
1406 
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155074 


001244 


1SS044 


001244 


001244 


poie44 


iF 


65S: 


A$170: 


AS171: 


ASI72: 


KO6 


JSR RS, TRYIT 
-HORD WRITE 
“HORE BABoUT 

MOV HOLD, (PC)+ 
.WORD 

INC #0 

BNE SéS 

EC 645 

BNE 66S 

CMP #102602, JTRCR 
BEQ A$170 

MOV #102602, RS 
MOV TR 

MOV TRCR, REGIST 
ERROR 1 

TYPEF ,MPARFL 
STAGAS=STAGAS+1 
cHP #162001, JTRSR 
MOV rie RS 
MOV JTRSR, RG 
MOV TRSR, REGIST 
ERROR 

TYPEL 
STAGAS=STAGAS+1 

MOV USEB,R1 

COM Rl 

I Rl. 

ASL Ri 

ADD #BADOUT,R1 
CMP R1, JTRBA 
BEQ 172 

MOV R1.RS 

MOV JTRBA, RY 
MOV TRBA, REGIST 
ERROR 1 

TYPEL 
STAGAS=STAGAS+1 

TST aTRWC 

BEQ RS173 

MOV 

MOV sO RY 
MOV TRWC, REGIST 
ERROR 1 


ea 
+ BICK obdkE Tine PARAMETER 
tUSE THIS WORD AS A TIME COUNTER 


sIE <9 COUNT 1 OF 65535 TICKS 
:HA THe TIME EXPIRED? IF NO, LOOP AGAIN 
Hee | TOTAL TIME ELAPSED? 

:IF NO, Heo WAIT A LITTLE LONGER 


;TEST COMMAND REGISTER 
sINCORRECT REGISTER MATCHUP 
;TEST THE STATUS REGISTER 


; INCORRECT REGISTER MATCHUP 


; TEST BUFFER ADDRESS 
sINCORRECT REGISTER MATCHUP 
sTEST THE WORD CCUNT 


; INCORRECT REGISTER MATCHUP 


LO6 
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3809 o244s4 104404 TYPEL 
3802 024456 000174 . ASI73: STAGAS=S$TAGAS+1 
| 47? E E 
ae8¢ Bees B38 775 Boapco f2a58G cus: BEF —SEHRELR -STRER soa GLERR i 
soos peuura ODE? Re OG 
Oe i scum SRM es pee ete ate Ss a eee a re oY re ee ee 
% 310 :THIS ROUTINE SPACES REVERSE OVER EVEN PARITY 
ssle 024476 TESTAY: 
3813 024476 004737 o24234 JSR PC, TESTAX 
Scie foueoe polnip T7bRD | SPACER. iBtnery0n 
35/5 at T9360 “WORD 100 COUNT 
3818 Oe45l2 034636 .WORD INPUT ‘BUS ice 
3813 bevel 3727 001240 MOV HOLD, (PC)+ if CK UP TIME PARAMETER 
eae 64$: .WORD O THIS WORD AS A TIME COUNTER 
3821 Oe4S22 665: 
3822 Oe4S22 005227 on0000 INC #0 - NO COUNT 1 OF 65535 TICKS 
3823 Deve 001375 reat BNE bbs fe tHe TI Tin NE EXPIRED? ia NO, LOOP AGAIN 
3825 Se desa Borate . BNE 665 IF NO,GO ! GATT a INF LE bon PERGER 
3825 024536 65S: 
354 5 
3829 O24536 022777 103610 154632 CMP #103610,3TRC:: ;TEST COMMAND REGISTER 
3830 001412 BE 
3831 024546 012705 MOV #103610,R5 
3832 Oe4SS2 017704 154620 MOV RG 
3833 024556 013737 001376 001244 MOV TRCR, REGIST 
3834 024564 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
3835 024566 104403 007056 TYPEF  ,MEPSRFL 
2837 024572 000175 ASI74: STAGAS=STAGAS+! 
- 024572 122001 154602 MP #122001,3TRSR ;TEST THE STATUS REGISTER 
3840 O24600 001411 Q AS! 
3841 O2e4602 012705 122001 MOV #ice001, RS 
see O24608 017704 154570 MOV a 
3843 Oe46le 013737 O01402 001244 MOV RSR, REGIST 
3844 Oe4%620 104001 ERROR ; INCORRECT REGISTER MATCHUP 
a3u5 D2e4622 104404 TYPEL 
3847 024624 000176 ASI175: STAGAS=STAGAS+! 
3849 024624 022777 034636 154560 CMP #INPUT,JTRBA = ; TEST BUFFER ADDRESS 
3850 Devoe } HT BEQ AS176 
1 0127 36 MOY #INPUT,RS 
3852 024640 017704 154S46 MOV JTRBA, RY 
C24644 013737 001412 oo1244 MOV TRBA, REGIST 
3854 O246S2 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
3855 024654 10440 


—— a es oo ——— 
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ee eee eee 


154522 


001244 


1S4460 
154452 


154400 


001244 


154350 


001244 


AS176: 


MO6 


78 
STAGAS=STAGAS+1 
_ CMP #177700, JTRWC 
0 OAS LIP 
MOV #1 RS 
MOV JTRWC, Ro 
MOV TRWC, REGIST 
OR 1 
YPEL 
STAGAS=S$TAGAS+1 
BIS #PWRCLR, ATRCR 
BIT #PWRCLR, JTRCR 
_ BNE 64S 
RTS 


;TEST THE WORD COUNT 


; INCORRECT REGISTER MATCHUP 


el 
OR Pv "to CLEAR 


zee 
m 


?THIS ROUTINE READS EVEN PARITY 


TESTAZ: 


64S: 
66§: 


65S: 


As200: 


JSR PC, TESTAY 
JSR RS, TRYIT 
.WORD READ 

“WORD. -100 

“WORD INPUT 

MOV HOLD, (PC)+ 
.WORD «OO 

INC #0 

BNe 66S 

DEC 645 
BNE 665 
CMP #102204, JTRCR 
BEQ As2O0 
MOV #102204, RS 
MOV aTRCR R4 

MOV RCR, REGIST 
ERROR 1! 

TYPEF | MREPFL 
STAGAS=STAGAS+1 

CMP #163001, 3TRSR 
BEQ $201 
MOV #163001 ,RS 
MOV RY 

OV TRSR, REGIST 
ERROR 1 

TYPEL 





 EUINCTION 
WORD. COUNT 
:BUS DODRESS 


PICK UP TIME PARAMETER 
;USE THIS WORD AS A TIME COUNTER 


NO, COUNT 1 OF 65535 TICKS 
TPS THe TIME EXPIRED? IF NO, LCOP AGAIN 
te TOTAL TIME ELAPSED? 

NO" EO WAIT A LITTLE LONGER 


; TEST COMMAND REGISTER 


; INCORRECT REGISTER MATCHUP 
; TEST THE STATUS REGISTER 


s INCORRECT REGISTER MATCHUP 


NO6. 


BOTRA HED tacaPhoe, oncho ete ae eee ROUTINES 


3518 o2s0s6 000202 AS201: STAGAS=STAGAS+! 
14 025056 O34E40 154326 MP #INPUT+2,3TREA ;TEST BUFFER ADDRESS 
4 410 Q Age 
101 V Ri 
1 1 154316 MOV JTRBA, RY 
33/8 Seeras reat a ERROR TRA, REGIST INCORRECT REGISTER MATCHUP 
: 186 ago FRROR . 
$328 025106 000203 AS202: STAGAS=STAGAS+! 
3924 025106 926777 177701 154272 cHP #177701, aTRWC  ;TEST THE WORD COUNT 
335 Beet? ies 177701 MOV #177701,R5 
3927 025122 017704 154260 MOV JTRWC,R 
3928 025126 013737 O01406 oo1244 MOV TRWC, REGIST 
3929 D251 34 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 
3330 025136 104404 TYPEL 
$332 025140" co0204 AS20353: STAGAS=STAGAS+! 
3934 025140 o00207 — RTS PC 
3935 : 
ES Es ‘THIS ROUTINE TESTS THE BITS IN THE WORD COUNT USING A COUNT PATTERN 
3939 025142 oos001 TESTBA: CLR RL sCLEAR COUNT 
3940 025144 _ fiz. 
3941 025144 010177 154236 MOV R1, ITRWC SET WORD COUNT 
3942 025150 020177 154232 , CMP Rl; aTRWC TEST WORD COUNT 
3943 025154 001411 BEQ ageo4—ti«; 
3944 025156 010105 MOV R1.RS 
394S 625160 017704 154222 MOV JTRWC, RY 
3946 025164 013737 OO1406 co1244 MOV TRWC, REGIST 
3947 025172 104001 ERROR 1 ; INCORRECT REGISTER MATCHUP 
3348 025174 104403 007127 TYPEF  ,MWCFL 
3950 000205 AS204: S$TAGAS=STAGAS+1 
3951 00 o0S201 INC Ri s INCREMENT COUNT 
3952 OeSe02 001360 BNE A : CONTINUE 
3953 04 207 RTS PC 
3954 
3955 
3956 § Cee nen reese semnasnnsnneewsenTanesaennasessTaneresasaessnesseseseases * 
3959 | THIS ROUTINE Tests T STATUS AND COMMAND REGISTERS 
3960 ‘AFTER VALID WRITE FUNCTIONS 
3381 : 
3963 025206 022777 O02602 154162 TESTCX: CMP #2602, JTRCR ;TEST COMMAND REGISTER 
3964 025214 ool ye BEO AS20S 
3%5 Oe5216 O32 oo0200 154156 BIT #200, JTRSR sE0T?? 
3966 025224 001404 BEQ 1$ :NO 


2967 OeSe26 Oeebeb CMP (SP)+, (SP)+ 


BO? 
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(SP)+,(SP)+ 
et (SP)+ 


ct an 
] a 
1376 MOV TRcR, AS or r 
721 T VMWRTFL 
STAGAS=STAGAS+: 
002001 154112 #2001, aTRSR :TEST THE STATUS REGISTER 
154102 #200, ,aTRSR :87 E0T?? 
(SP)+, (SP)4 ; 


(SPi+,(SP)+ 
(SP), (SP)+ 


; INCORRECT REGISTER MATCHUP 


#2091,R5 
aTRSR.RY 
TRSR, REGIST 
MWR TEL 
STAGAS=STAGAS+1 


aTRWe ; TEST WORD COUNT 
AS297 . 


—-QO00 


g 


; INCORRECT REGISTER MATCHUP 


104403 
000207 
00S777 


§ 
~ 
£ 
~ 
Tw 


stat=teta1 
42 


TRWC, RY 
fruc, REGIST 
, MARTEL 
STAGAS=STAGAS+1 


s INCORRECT REGISTER MATCHUP 


2 
28 


; THIS pap TESTS THE COMMAND AND STATUS AFTER VALID 
;READ FUNCTIONS 


TESTDX: oe #2204, aTRCR ; TEST COMMAND REGISTER 
#200, aTRSR fel EOT?? 
(5P)+, (SP)+ : 
(SP)+ 
PC 
seco4, Ay 


JTRCR 
MOV TRCR, AEcrst - 
ERROR 1 s INCORRECT REGISTER MATCHUP 


SE6 


eS: 
= 0-2 0 b= 0-2 b= 0 bo 
WONMWWN£CWM-Ow 


55555555 


tw 


RS 
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TYPEF  ,MROFL ~ 
AS210: S$TAGAS=$TAGAS+! 
153730 82001, 3TRSR ;TEST THE STATUS REGISTER 
omg ToTRS 
153720 #200, JTRSR sAT E0T?? 
1$ :NO 
(SP)+, (SP)+ 
(5P)+ 
pC 
#2001, RS. 
JTRSR.R 
TRER, ‘AECIST 
r  MROFL 
STAGAS=STAGAS+1 


aTRWC : TEST WORD COUNT 
AS2Zle 


RS ' 
aTRWC, RY 
TRWC, REGIST 


»MROFL 

STAGAS=$TAGAS+1 
PC, TESTS 
PC 


; INCORRECT REGISTER MATCHUP 


; INCORRECT REGISTER MATCHUP 


TESTCA: 
fey 
iFLncTI0N 


TESTCK: 
RS, TRYIT 
WRITE: 


OUTPUT 'BUS DODRESS 
PC, TESTCX 


R 
— J RS, TRYIT 
SPACER FUNCTION 
WORD COUNT 
- :BUS DDDRESS 


ZTRA 
4024 
4e5 
408 
038 
4030 
oe 
4034 
wos 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4o4y 
4045 
4046 
4047 
448 
4048 
4050 
4051 
4052 
4053 
acy 
4955 
4056 
4057 
40s 

5 
4060 
4061 
4062 
4063 
4064 
4065 
4966 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4979 












DO? 
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4080 025640 004737 O2S666 <i% JSR PC, TESTEX 
OeS644 000207 - + RTS PC 








4081 

4083 

4084 

4085 46 : 

woes Geers poser ozs a 
wo) Gees 


er 4 “WORD OUTPUT SOKO SST ss 






4090 026014 JSR PC, TESTFX 
4092 ; 

4094 

4095 s THIS ROUTINE TESTS THE COMMAND AND STATUS AFTER VALID 
4596 :SPACE REVERSE FUNCTIONS - 

4038 O25666 022777 003610 153502 TESTEX: CMP #3610, JTRCR TEST COMMAND REGISTER 
Wid GSSe7e BIe7HE 903610 ate 

4101 peesne 17704 153470 MOV JTRCR, RY . 

4102 025706 013737 001376 o01244 MOV TRCR, REGIST ; 

4103 925714 104001 oR 1 s INCORRECT REGISTER MATCHUP 
4108 025716 104403 004742 EF ,MSRVFL 

4108 025722 000214 AS213: S$TAGAS=STAGAS+1 

4108 025722 022777 002001 1534S2 CMP at , aTRSR sTEST THE STATUS REGISTER 
4109 025730 O0141 BEQ A 

4110 925732 eae 002001 HOV 

4111 025736 017704 153440 fe 

4il2 025742 013737 OO1402 o01244 RSR, REGIST 

4113 peesds 104001 ERROR s INCORRECT REGISTER MATCHUP 
4114 025752 104403 004742 TYPEF fd SRVEL 






4116 025756 o0d215 AS214: STAGAS=STAGAS+1 
4118 Q25756 023777 o26536 153422 CMP  —«sUSEB, aTRWC sTEST WORD COUNT 






- 

- 

b-* 

‘N 
‘ 






120 1 026536 

4121 025772 017704 153410 MOV aTRWC, RY 

4122 025776 013737 OO1406 oo1244 MOV TRWC, REGIST ‘ 

4123 026004 104001 ERROR 1! s INCORRECT REGISTER MATCHUP 
4124 O26006 104403 00474e - TYPEF ,MSRVFL 







4126 Oe26012 000216 AS21S: STAGAS=$STAGAS+1 





;THIS ROUTINE TESTS THE COMMAND AND STATUS REGISTERS AFTER 
:AN ERASE FUNCTION 





EO? 
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002216 153354 TESTFX: #2216, TRCR TEST COMMAND REGISTER 
#2216,RS 
JTRCR,RY 
001376 001244 MOV TRCR, REGIST 
,MERFL 
STAGAS=STAGAS+1 
#200} ,3TRSR TEST THE STATUS REGISTER 
82081 


JRS 
RY 
Tre, REGIST 
, MERFL 
STAGAS=STAGAS+1 


SINCORRECT REGISTER MATCHUF 


; INCORRECT REGISTER MATCHUP 


: 


Get WORD COUNT 
sFIX IT 


+ POMBUTE BUS ADDRESS 


R ;TEST BUFFER ADDRESS 
STABR, RY 
TRBA, REGIST 
I MERFL 

STAGAS=STAGAS+1 

1st ;TEST THE WORD COUNT 


& = & = >-2 §-2 & 2h - He b-2h-< b bp 


SSSER0 H FERNEEN SENS? 


; INCORRECT REGISTER MATCHUP 


MOV 

MOV 

ERROR 

TYPEF 
STAGAS=$TAGAS+1 


026 
: 
oe 
e 
O26 
e 
026 
026 
e 
Oe 


bob 6 - b <p -- e 


; INCORRECT REGISTER MATCHUP 


?THIS ROUTINE WRITES,SPACES REVERSE, AND READS 


TESTXX: MOV #15. RY 30RD THE TOTAL SUBTEST PAS 
MOV #S1ZTAB.R3 :POINT TO TABLE OF BLOCK SI 
#1, WRTFLG ;SET FLAG FOR RETURN 


MOV 
1S: MOV (R3)+,4$ 
MOV #3,Re ;KEEP TRACK OF THE NUMBER OF FUNCTIONS TO Do 


sc 
ZES 
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TT 


4ige 


= 


3PO NT 10 TABLE OF 4 RS 
;P0 ul TQ TABLE OF FUNCTIONS 
:POINT TO T OF FOLLOWUP TESTS 
ORD Q EU TION IN Wy SUEROUE IN INTERFACE 


; SAVE REGISTERS. 


ot 


££ 
ore 
zB 
(t+ twwe™mM 


£ 
22D A —. -. 


+ 
-— 
OOF Lae 


;GO0 EXECUTE THE FUNCTION 


300 THE APPROPRIATE FOLLOWUP TEST 
SRESTORE THE REGISTERS 


s 


SAaRSSES 


2 


;REDUCE THE COUNT. ALL 1 RETIN DONE? 

IF NOT, GO DO THE NEXT ONE 

; REDUCE THE OVERALL COUNT. ALL BLOCK SIZES DONE” 
;IF NOT, GO DO THE NEXT ONE 


HEwW-O 
=t=tatat 
RoeR 
NR GEEES 


oe 


GGGEGGG 
Beees 
yee 


Oe62S0 
osese0 
Oeb264 
Oeb276 
056306 
026310 
Oe631e 
026314 
026316 
026320 
Ose3e 
0863580 
tees 
026340 
026344 
026350 
026354 


Siciehs 
be 
—-Oww 


73,74 “5 -6,-7,-10,-20,-40,-100, -200, -400, -1000, -2000 
SPACER, READ 

,0, INPUT 

TES TEX. TESTDX 


25 mooow 


a 


;COUNT THE NUMBER OF ITERATIONS 
POINT TO My 3 TABLE OF BLOCK SIZES 
:SET RETURN FLAG 


_;LOAD SUBROUTINE INTERFACE 
“SAVE REGISTERS 


;G0_ 00 A READ FUNCTION 
;EXECUTE A READ 
;BLOCK SIZE 
BUFFER TO 
;EXECUTE THE FOLLOWUP ROUTINE 
;RESTORE REGISTERS. 


-sREDUE COUNT. ALL BLOCK SIZES DONE? 
tIF NO, GO DO THE NEXT ONE 


seeedes 


ooo 

ob 
aw 
£uW) 


oe 


ches 


oo 
a 
4D 
Mowe 
4 


+ 
<—m 
<w 
+ 
<= 
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s THIS ROUTINE PERFORMS TAPE FUNCTION IT IS CALLED 





4250 :BY APFUN MACRO 
4252 026524 USEAO: 0 

4253 026526 USEBO: 0 

4254 026530 USECO: 0 

ce 026532 USEDO: O 

026534 USEA: 0 sFUNCTION 

seg popecp Ugee: STN TTISC BUFFER ADDRESS 

4260 BeeeNe USED: 0 TEMP STORAGE LOCATION 

4262 O26544 TRYIT: MOV (RS)+,USEA GET THE FUNCTION 

4263 026550 MOV (RS) +; USE ier THE WORD COUNT 

4264 026554 MOV (RS)+ T THE BUS ADDRESS 

4285 026556 As222 immed cut te z Speen 

uses SSeeee MOV Sie LAST WORD COUNT 

4268 025574 MOV use, G,usECO — LAST BUS ADDRESS 
- 4269 O26602 ISR 

4370 026606 A=. 

4271 O26606 000224 AS223: aemmananeiis 

4272 OPS606 O1 152564 o26s4e MOV JTRCR, USED STORE COMMAND REGISTER 

4573 026614 eet 175577 Oees4e Bic #175577,USED  :CLEAR UNWANTED BITS 

4274 Debbee 022737 002200 Od2654e CMP #002200'USED  :TEST THE COMMAND REGISTER 

iste 026632 vee 002200 coy 908200 RS 

4538 026636 Seba 026542 MOV USED, R4 

4278 Oeb642 013737 001376 001244 MOV TRCR, REGIST 

4279 026650 104001 ERROR 1 s INCORRECT REGISTER MATCHUP 

4280 O2e6652 104402 007207 TYPE  ,MUNRDY 

WEBS Ob A GET RID OF DERORS 

4283 yaaa AS224: PF acas=sTacnse! ae 

4285 026660 042777 000001 152514 BIC #8170, ITRSR 

428 026665 052737 000001 O26534 _— BIS 8BITO;USEA ;SET GO BIT IN COMMAND 

4288 026674 013777 026536 152504 MOV USEB, JTRWC ;SET WORD COUNT 

4289 Oeb70e 13777 026540 152502 MOV USEC; JTRBA SET INITIAL BUS RODRES S 

4290 7\ NOP THIS LOCATION MAY BE CHANGED TO A HALT TO INSPECT 
4291 . . EQUIPMENT STATUS OR PROGRAM OPERATION 
Hede 026712 013777 026534 152456 MOV USEA, ATRER SET CONTROL REGISTER 

4294 026720 004737 011522 JSR PC, TESTA 

4295 026724 000240 NOP THIS LOCATION MAY BE CHANGED TO A HALT TO INSPECT 
Hege : "EQUIPMENT STATUS OR PROGRAM OPERATION 
4298 026726 032777 000200 152446 BIT 88177, aTRSR 

4299 026734 (001424 BEQ AS225 
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=76 SUB-TEST ROUTINES 
4 026736 005737 001264 TST WRTFLG ;TEST FOR RETURN FLAG 
430 742 001417 Q 3 :NO FLAG. 
4 le 000001 001264 #1,WRTFLG sMBIT TURN? 
4304 026754 ae CMP ($P)+, (SP)+ 0K READ 
perce teres CMP (SP)+! (SP)+ 
CMP (SP)+. (SP)¢ 
31 oo ONTS? OTeeet ~~ ae afd 
» TES 
431 peeaan Bpaeae RTS = - PE 
Wats BS7OhS ONT? O126e4 18: gk PC. TESTI 
4315 027006 eae , AS225: $TAGAS=STAGAS+! 
43 027006 o00205 RTS RS RETURN TO CALLING PROCEDURE 
4318 
: j 
4321 / 7 sTHIS ROUTINE PERFORMS TAPE FUNCTION IT IS CALLED 
ie :BY THE EOTFUN MACRO THIS IS USED FOR EOT FUNCTIONS ONLY 
4324 027010 005737 030324 EOTTST: TST INTFLG ;CHECK INTERRUPT FLAG 
4325 927014 01403 BEQ AS226 
4325 027016 USe2 000100 O26534 BIS #8116, USEA sENABLE INTERRUPT 
4 bores 000227 AS226: STAGAS=STAGRS! 1 
t bi3737 Goeese | DSEESE SAVE LAST LORD COUNT 
4350 Oe70N8 Btaras Aseecs feces Vv ea a SAVE t Bue ASDRESS 
4331 027046 004737 013662 JSR PC. TESTN 
433 0270S2 032777 100000 iSe2316 BIT aBTi5, STRCR 
4333 027060 90141 BEG 
4335 027062 194009 al , ERROR - #ERROR-B17 WAS NOT. CORRECT 
433 027064 1 007155 TYPEF  ,MUNERR 
4338 027070 777 OO4000 152300 BIS 8PWRCLR, JTRCR SDEV ICE MASTER RESET 
4339 027076 pcre? 004000 152272 64S IT SPWRCLR,3TRCR INSTRUCTION CLEAR 
4340 027104 001374 64 [IF NO. WAIT F fr TO CLEAR 
aaa ae a Seaead 152264 0265 RSee7: ON aTRCR SSTORE C REGISTER 
4345 555108 eee 1755 at BIC aL SSCoy SED :CLEAR UNWANTED BITS 
4344 027122 022737 002200 Oebs4e CMP : TEST THE COMMAND REGISTER 
Naue Geriae puarhe ABV 805200, RS : 
dau? 027136 Bis708 BoEEE : MOV USED, R4 | 
4348 027142 013737 001376 001244 MOV TRCR, REGIST 
4349 027150 104001 ERROR | ; INCORRECT REGISTER MATCHUP 
4350 027152 104403 007207 TYPEF  ,MUNRDY 
4352 027156 000741 BR A :GET RID OF DERORS 
4353 027160 000231 AS230: S$TAGAS=STAGAS+! 
4355 027160 042777 O00001 152214 BIC #BIT0, ITRSR 


107 


DZTRAA teri eek ) “a le: a ee 


DZTRA. HED -TEST B OUTINES 
4358 ot gant 000001 026534 BIS #BITO,USEA ;SET GO BIT IN COMMAND 

M V , ; T 

i ese B1335% Sseese fesse Mov DeER STRBS ier HOFer Cus AODRESS 

4 216 000240 NOP THIS LOCATION MAY BE CHANG GED 708 HALT TO INSPECT 
027212 013777 O26534 152156 MOV USEA, JTRER ‘Eay CONTROL PTA RstER ee 

4364 O02 pou? 37 011522 JSR PC, TESTA 

4365 027224 s THIS LOCATION MAY BE CHANGED TO A HALT TO INSPECT 
4366 ; "EQUIPMENT STATUS OR PROGRAM OPERATION 
4368 027226 000207 RTS PC 

4369 

qa9t Dee re Te Te ee eee % 
4 ;THIS ROUT TS T T PARITY 

re i] S ROUT NE PUTS HE CORREC ITY ON ALL WORDS IN 

375 027230 012700 030576 FIXBUF: MOV #OUTPUT, RO ;SET INDEX 

ware eres BT 100t 7 MOV (ROD, RI GET THE WORD 

é ’ 4 

‘ 53 Bsns CLR Re OER THE COUNTER 

4380 027240 105701 TSTB sR TEST R1 LOWER 

uaes Ge7suq Apeee Pe Roe | 

4 I R2 ; INCREMENT COUNTER 

uaes DS7Sue SpOSe a ae :TEST RI LOWER 

4385 BSsSep 001 . BEQ A$232 

027252 006301 ASL R ;SHIFT RI 

4 027254 go0774 ion BR a so :GO BACK TO B 

4 BeoSee nea 000001 BIT _ ieit 8 he ;0DD OR EVEN 

4390 Oe7262 001002 BNE 

4391 027264 052710 oo0400 BIS #81T8, (RO) ;SET PARITY 

4392 027270 000234 AS233: STAGAS=STAGAS+ 

4393 027270 005720 TST (RO)+ 

4394 027272 022700 034636 CMP #INPUT, RO ;ALL DONE 

4395 027276 001356 BNE A :NO 

4396 027300 RTS PC 

4397 

4398 § Sep cee eens n nsw eeasaresesesscrsensesessrsssqesssessasssrsssessssssessess * 
4399 SBTTL DEROR HANDLING ROUTINE 

wot * 
ins 012737 177777 901266 WRONG: MOV #-1,LO0C ia UP FOR ERROR sERROR-BIT WAS N 

16 012737 177777 001252 MOV #-1' ERR T DEROR FLAG ) 

440S 027316 012600 : MOV (SP3+,RO 

4406 027320 005740 TST -(RO) : ‘Bx rf 

4407 027322 010037 001254 MOY RO, XPC *STORE IT 

4408 27 3eb 011637 001256 MOV (SP), XSR sBT ORE wer 

4409 027332 746 TST -(SP} I STACK 

4410 027334 37 030206 TST VECSTR TEST VECTOR FLAG 

4411 927340 001402 - BEQ As234 


eee ee = o- - 
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Oe7342 000137 


027346 000235 
- 027346 000002 


2 


ieee 
aelits RESEQIOR 


Riot 
uur 
FS 
ABP 
aie 


ns 


13-APR-76 


030150 


001266 


001266 


22-SEP-76 12:30 PAGE 88 
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DEROR HANDLING ROUTINE 


"SBTTL CORE SIZE ROUTINE 
;THIS ROUTINE TESTS THE CORE SIZE AND INSURES IT IS OK 


JO? 


IMP VECTRX 
AS234: STAGAS=STAGAS+1 
RTI 
WRONGX: 
JSR RS, SAVE 
BIT 48174, SUR 
Ene ERENT, anAXERR 
BHI WRONGY 
I ERRCNT 
AS235: S$TAGAS=STAGAS+1 
TYPE WHED1 
CMP b-1 Pac 
BE AS236 
; TYPE WHEDe 
AS236: $TAGAS=STAGAS+1 
TYPEF ,MCRLF 
CNVRT 
Be a 10 
BEQ WRONGY 
CNVRT 
WROAT2 
WRONGY: INC ERRCNT 
RTS PC 
WROATA: .WORD 3 
BYTE 6,2 
TSTPTR 
XPC 
XSR 
WROAT2: .WORD 3 
“BYTE 6,2 
COR 
ACT 
LOC 
WHEDI: .ASCIZ <377>/SUBTEST 
WHED2: .ASCIZ / CORRECT 
EVEN 


;RETURN TO VECTOR 


; TEST SWITCH BIT 04 


a a ar 
feed ah 


; TEST LOCATION FOR ERROR 


; TYPE A_CARRIAGE RETURN 
SOCTAL TO ASCII CONVERT ROUTINE 
;POINTER TO DATA TO PRINT 


; YES-EXIT 


SOCTAL TO ASCI]_ CONVERT ROUTINE 
DATA TO CONVERT AND PRINT 
31 1 OVER LIMIT 


NCREMENT 1 


; NUMBER OF DATA TO PRINT 
CHARACTERS AND SPACES TO PRINT 


R OF 
S LOCATIONS OF DATA 


; NUMBER OF WORDS TO PRINT 
CHARACTERS, SPACES 


;NUMBER OF 
LOCATION OF DATA 


PC STATUS / 


ACTUAL 


LOCATION / 


;ERROR-8 


KO7 
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D2TRA.HED  13-APR-76 00:50 CORE SIZE ROUTINE 
u4é9 027602 O00414 BR CORE 

aie aaa Sus s(n, 

a4 10 aiSog? ieeaatt MOV. RO’LASTAD ;SET LAST ADDRESS 
W473 057614 POp2sP 

474 057616 023727 027714 o40000 CMP. LASTAD, #CORSIZ ;TEST CORE SIZE 

44 1 BHI, Sea? 

a4 i SERROR-BIT WAS NOT CORRECT 
wa7a GeveSe | OODTa? y a 

uur BSes4 Brees? Sesehs oo0004 core: HOV ‘eu :SET VECTOR 

wugg Oe7642 012737 O00000 00005 MOV «80° FSET STATUS 

we) 027680 00 : CLR RO beET RO TO ZERO 
44g3 027652 105720 TSTB (RO)+ sTEST ADDRESS 

uued BSTEEN Oboe BRR t CONTINUE 

u4BE 027656 :. | 

4g? 027656 012737 177777 027716 MOV #1, ADDERR .SET DEROR FLAG 
wuss O57664 00002 RTI 

4489 005037 027716  QDDTST: CLR ADDERR SCLEAR DEROR FLAG 
4490 OB7672 012737 Os765— 00004 MOV aX. SSET VECTOR 

4491 027700 015737 000340 000006 MOV «83406 PeET STATUS 

4492 057706 005710 , TST. ¢RO) ;TEST ADDRESS 

4483 027710 O00e4O NOP DELAY 

4494 027712 000207 RTS «PC 

4495 

G96 

44g? 

4498 027714 og0000 LASTAD: 0 SLAST ADDRESS IN CORE 

we3 02716 000000 ADDERR: 0 PADDRESS DEROR FLAG 

9595 VECADD: 

W201 OB VECSTA: 

us02 027720 OO0000 PRIOR: 0 SPRIORITY LEVEL OF INTERRUPT 
4EDs 027722 104402 027730 TTYTAB: TYPE MTB 

ues QS7756 bodea RY 

4B0e 057730 C0001! MTAB: -ABCIZ<11> 

ueO? "EVEN 

408 

atk “LILI 7 an EE sscnsccianatienpamenandatensianiaeieheunbbanemiiiniagiiadiiadaiaeadismemdidaimame 
4810 ‘SBTTL TTY DECIMAL OUTPUT ROUTINE 

ue12 THIS ROUTINE CONVERTS. ® OCTAL VALUE IN THE EXCHANGE REGISTER TO 
4813 A DECIMAL VALUE AND PRINTS IT AT THE TTY. 

ueIs | 

“ele c27722 .. 

WEI? 027732 O00207 RTS PC 

ue1e 027734 CTRe. 

4e19 027734 

NES] 027736 {E2788 coDD1e SUB «#12, RO ;SUBTRACT 12 

yee 027742 005237 027734 INC | OCTR FINCREMENT COUNTER 
453 027746 000407 BR sASHO 


——-—0 -—--— -- —- - a 
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DZTRA. HED 


ees | 


tad 


coun fs 


Sctsisisicts 
ROBES 


g 
@ 


paises 


eee ae te 


22-SEP-76 12:30 
00:90 


LO? 


PAGE 90 
TTY DECIMAL OUTPUT ROUTINE 


000001 151224 TYPTEN: BIT #BITO, JSWR ; TEST y peter PRINT BIT 


151174 
151170 


151160 


000016 
000014 
000022 
000020 


x 

L =(SP) rex IE STOP CODE 

CLR CTR :SET THE COUNTER TO 000 
AS4O: STAGAS=STAGAS+1 

CMP RO, #le TEST EXCHANGE 

BHIS A “BRANCH IF MORE THAN 1 

ADD #260, RO ; CONVERT OT TTY CODE 

HOV RO of, ia ACK THE CODE 


NCH IF RO NOT O00 
sTHIS ROUTINE PRINTS TTY CODES picnic ed PLACED ON THE STACK. 
;TYPING A OO CODE WILL TERMINATE THIS ROUTINE. 


A=. 
TYPSTK: 
TSTB. aTPCSR 
BPL SAS 
MOV (SP)+,3TPOBR — ;PRINT 
BNE A : NO-CONT INUE 
TSTB. aTPCSR 
BPL SAS 
RTS PC 


‘SBTTL INTERRUPT VECTOR ROUTINE 


;THIS ROUTINE SETS UP CORE ADDRESSES FROM 0 TO 1000 AND WATCHES 
:FOR ILLEGAL INTERRUPTS 


A=. 
CLR Rl sPRESET R1 
MOV #2, Re *PRESET Re 
MOV —swRB, (RL) + sSET ADDRESS 
CMP (R2)+. (R2)+ j INGRENENT R2 
MOV #20367, (R1)+  3SET STATUS 
CHP #1000, Ri smal ADDRESSES SET 
MOV #340, 16 SET TRAP STATUS 
MOV #VECTOR, 14 SET TRAP VECTOR 
MOV #340, 22 T UP FOR 
HOV SURONG, 20  DEROR VECTOR 
VECTOR: TST 0 TEST ADDRESS O00 
BEQ A. ‘BRANCH IF ZERO 
CMP (SP), #1000 TEST THE ADDRESS 
BGT asoul 
MOV (SP), VECSTR ;STORE VECTOR ADDRESS 
he POP2SP 
es SMP WRONG :GET PC AND SR 


DZTRAA MACY11 27(1006) 
13-APR-76 00: 


DZTRA. HED 


4580 
4581 


ee | 
55 - 


ERROR 
88 BSseeee 
a2 Ste PEGE 

£8 

Ss 


a8 





es 
4598 
4599 
4600 
4601 
SS oxen are 
4604 030216 012737 
460S O30ee4 012777 
4606 030232 012777 
4607 030240 052777 
4608 O30e4% 000207 
4609 
4610 
4611 030250 005037 
46le 030254 000240 
4613 030256 000240 
4614 030260 005737 
4615 030264 001401 
ep 030266 104000 
4618 030270 Oo00244 
4619 
4620 
4621 042737 
“Gee 030276 005037 
4623 030302 005037 
4624 004537 
4625 030312 004737 
4626 030316 004537 
4627 O303ee 000207 
m7 030324 000000 
1 030326 042737 
4632 030334 005037 
4633 030340 000240 
atke 030342 000002 


030206 


177777 
000340 


030326 
CO0340 
000100 


177776 


030324 


000100 
030324 


o412 
030112 
030444 


0001 
Bop 304 


030324 
177776 
151162 
151156 
151130 


164000 


164000 


MO? 


— 12:30 PAGE 91 


INTERRUPT VECTOR ROUTINE 
AS241: mapa ge 


MOV #r1,VECSTR SET VECSTR TO -1 
VECTRX: 
JSR PC, WRONGX 
CHP te] VECSTR ;TEST FOR BREAK POINT 
HOV VEE STR, RO ;GET ADDRESS 
% SUB #6, RO ;FIX IT 
"HALT 
CLR VECSTR ;CLEAR STORAGE 
AS24 a ‘oe: eh 
VECSTR: ae 


6 we eww mw www wen ow ee ee ww ee we ee ee ene ew ew oe ee ee ee ee ee ee ee % 


*SBTTL INTERRUPT HANDLING ROUTINE 
s THIS ROUTINE HANDLES INTERRUPTS FROM THE EQUIPMENT BEING 


ENAINT: MOV INTFLG NTERRUPT TEST FLAG 
MOV $340 PS jot PROC EL, TO 7 
MOV SINT TIN. aTRV ;SET UP VECTOR 
MOV SIND, aTRRIS. SET UP STATUS 
BIS #100; JTRCR :ENABLE INTERRUPT 
RTS PC 
CHKINT: CLR PS .  #CLEAR PROCESSOR PRIORITY 
NOP : DELAY 
TST INTFLG ;TEST INTERRUPT FLAG 
BEQ AS243 
ERROR 


AS243: STAGAS=STAGAS+1 


DISINT: BIC #100, 164000 ;DISABLE INTERRUPT 
oad INTFLG :CLEAR INTERRUPT FLAG 
cL 0 :CLEAR VECTOR FLAG 


RS, SAVE 
JSR PC; VECTOR 
JSR RS, » SETALL 


RTS 
INTFLG: 0 ; INTERRUPT FLAG = 0 WHEN INTERRUPT OCCURS 
INTIN: BIC ‘#100, 164000 :DISABLE INTERRUPT 

CLR INTFLG CLEAR THE FLAG 

RT 


a”? 
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ei 
4529 
4e40 
4 
q 
4643 
loteiel 
4E=5 
4646 030344 
S64 
4648 O30346 
HEY 
4650 030350 
4651 030354 
4652 030360 
4653 030364 
wees 030370 
4656 030374 
4657 
4658 
Geog 
4660 
4661 030376 
4662 
4663 030400 
4664 030404 
030410 
GESE 
4667 
4668 
4669 
467 
4671 
4672 le 
4673 0414 
47H 0416 
4675 030420 
4676 QO30422 
4677 O30424 
4678 
4679 
4680 
4681 030426 
4682 030430 
4683 hair 
4684 0434 
ios O30, 
4687 Saude 
4688 
45 


NO? 
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030346 
030344 
030412 


027750 
o30444 


INTERRUPT HANDLING ROUTINE 


'SBTTL PASS NUMBER ROUTINE 


;THIS ROUTINE KEEPS TRACK OF THE CURRENT PASS COUNT AND 
DISPLAYS IT WHEN REQUESTED BY THE OPERATOR OR OTHER ROUTINES. 


PASSUB=. 
PASTOL= 

A=. 

PAST: MOV PASTOL,RO SET EXCHANGE 
ADD PASSUB, RO ADD SUB TOTAL 
ISR RS, SAVE 
JSR PC’ TYPTEN 
5 *SETALL 
RTS PC 


“SBTTL AUTO RESTART ROUTINE 


AUTRES: NOP 
;PRINT TOTAL PASSES CONEY ETED 


JSR PC, PRETST 
we XTEST, (SP) ;STACK THE TEST ADDRESS 


“SBTTL . SAVE AND SET REGISTERS ROUTINE 
SAVE: MOV RO,-(SP) 
MOV R1,-(SP) 
MOV Re, -(SP) 
MOV R3,-(SP) 
MOV R4,-(SP) 
RTS RS 
SET: TST (SP)+ 
MOV (SP)+,R4 
MOV (SP)+,R3 
MOV (SP)+, Re 
MOV (SP)+,R1 
TST (SP)+ ;DONT RESTORE RO 
RTS RS 


DeTRAA MACY} 271095) 


B08 
: SEP-7& 12: +B +s 93 
DITRA. HED 13 AVE 


& 00: “80 AND SET REGISTERS ROUTINE 


3 SETALL: TST 

MOV 
26: 
es 
260 
be ; 


1 
1 
i 
1 


'SBTTL PRESET ROUTINE 


STHIS a TS USED TO PRESET ALL VARIABLES, REGISTERS ECT. PRIOR TO 
;PERFORMING A TEST. 
PRESET: MOV 3 GET i RETURN 

MOV T_STACK 


i RESTORE RETURN 
CLEAR THE REGISTERS 


;CLEAR STATUS WORDS 
;CLEAR BUFFERS 


cLern He oo sts 
CLEAR PASS TOTA 


AR PAS 
ee SWITCH REGISTER 
;CLEAR INTERRUPT ENABLE 


;CLEAR THE DEROR FLAG 
:CLEAR THE DEROR COUNT 


pigsty 
bt Boue 
1 
005003 
o0s004 
ied 
908077 
005077 
005077 
005037 
06037 
005037 
908077 
005037 
905037 
905037 


e 


am tae he he hatin ae nie Lae 
+ b= 0 b-+ 6 0-2 9-2 
et et Nee Net ae ee ee 
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tseapkoee condo NE 


DITRAA MACY! 
DZTRA. HED 


72 hash SEee Sze. RO S8es8 see F8e9 iat 9888 


errr te 
2 ces Ee ie 
las Gl Ee Ee ie eee EE 
fil oe Ee ee es oT oe: 


a ee a a ed a a eh a ate a a ae ce Se ce ti ee tee ce a ce eat, ce a aie can aes eam ean eee ec he ae oe cen cat A hae ean eae an Ta ce Ta et ea ae ad 


le Re ee ee ee ee ee ee PF SF Se NP SF So SP SP Ne SP SP Se Se COD Sd SP SP CaP So SP SP NP Sea? SP SP See Ne SP Sa SP Se Sin P NP Ne 


008 
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DITRAA MACYL1 2711006) 
DZTRA. HED 


2000 


ajoiiot ging giobia oid} abo ka 
CO MA MN ne MO 
man! saad geaa! gee weed & 


034636 002000 


ee et ee et et Set et Nt See Bt Bee Se Net Se Bt Beet Set Beet Bet Se See Set Se Set Be Sel Set Bet See Set ee et 


e; 
3 
Se As 
9 Us 
7 s I & 
: ry a 
g 8 fee gs 
Bau 8 wR wy & 
sat | ep wn 
softs eee on 8 
Wntsy tote 2 ® 
veer goss 8 Y 
Bhoge ae Se gw 
gre ey = 
pee eaee BF 
Herren = So 
eee ee 
gaz wy 
> 2S... EERE o 
oS Pee 
& ats a Ss 
W) ems —< OC) oe 
a a fe 2 = Os 
Srtkkiha tote & Be 
SEEEREEUDEES wm Bo 
” Seeeetee -—-& ty -= 
z Eo 
daggegeisers £uSs 
— wu 
n> we 
Za = 
wo 
Es 
Zz 
Sse ; 
$8 88 
BSSh Sh 
pats SUNS Se 
Beacea a 
BUPRYPT YS = 7G 
gree i 
Siesrsszee2 =F? 
eeas Lt] a _ rr oo 
CCR ECR RCRRERRPERRRE 


| 
| 
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001400 RQ, MTRCR 
001402 Bae FRSA ;XXXe2 
001404 RO,HTRSR ;XXX3 
001406 Re trol | 3 XXX4 
001412 MOV RO, TRBA ;XXX6 
RTS 


LEVELY 

LEVELS ;LEVEL TO ALLOW INTERRUPTS 

; THIS ROTA L RD CALCULATES ODD PARITY FOR AN 8 BIT CHAR 
;SAVE TEMP1 


hov 
LR USE Ri TO CREATE PARITY BIT 
-» (PC)+ Tae urne & OF BITS TO CALCULATE 
; I AS A LOOP COUNTER 


ci) owes 


atatat=| 
oco 


EAP oate Geer te tho Pond” ME ¢ 
<a1T8, TEMP HE, | PARI ty 


BR 3$ 
2s: BIC BITS, TEMP -CLR EVEN PARITY 

-TEMP1 NOW HAS ODD PARITY ER EE 
3S: RTS = PC 
-THIS ROUTINE CALCULATES EVEN PARITY FOR AN 8 BIT CHARACTER 
EVENS: MOV EMP1,RO ;SAVE TEMP! 


4$: 0 
1$: ROR 


ADC Rl 
DEC 4§ 
BNE 1$ 

RI 


NOOO 


ae 


el ee ee ee ek oe oo 


Os 
04 
os 
os 
04 


& RB 


| 
#8.,(PC)+ 


ROR 
BCC es 
S : » TEMP ;SET EVEN PARITY 


TEMP! -CLR ODD PARITY 
iTENPL Nok Nou rR EVEN PARITY CHARACTER 


: MOV (3), TEMP] ;SAVE PC 
gs DEVICE NON-EXISTENT 


SNSeRER ERS 


2222 Zee tPezezezz2 


heb 
Norn Fhe 











DITRAA MACY] 2 22-SEP-76 12:30 PAGE 97 
. 13-APR : INPUT - OUTPUT BUFFERS 


b--b = pe 


Re Boy 


S22 222 222 


ba fe b> p-2 ps et 


= b-3 bbs oo b-- <b bp o bm 2 H+ He 





&¢ 283 SER SEY HEF £64 


fururm fu 
[od co 
oc © 


ReeaES Pea ares 
SESS SSSSSSSSS VSS SLE SES S22 VSS? V222 Ve? 


& 


32399 
seRty 


oOn- 


ONTROLLER 
ae I FAILED | TO INTERRUPT 
+ NON-EXISTENT / 


i 
= 


RRR Ee 
gs 
8 


a 


HEADERS FOR ERROR ME 

(377> /REGISTER Bae ACTUAL / 
(377) /UNIT ? 

(377>/ERROR PC 
4(377>/UNIT ® 7 


Beige 


fT 


Hs h-2 Bo be ee ee ee ee ee ee 
wn 


Fee ae ee ee he ee ee ee ee ee ee 

es 2 he Ot Bae bn be hn bo Be he pe 

ee ee ee eet ee ee ee ee ee ee ee ee ee 
oul ££ ral) 

Res FER-SPOR Ey 

2922 eRe 

Fs 

— 

ow 

Nee 


o 
fo 





FOS 





;ERROR 0 BIT ERROR (GENERAL) 
sERROR 1 REGISTER ERROR 
;ERROR 2 CONTROLLER ERROR 
;ERROR 3 UNIT ERROR 





;ERROR 4 REC FAILED TO INTERRUPT 
;ERROR S TRANS FAILED TO INTERRUPT 


SERROR 6 DATA-ERROR 





;ERROR 7 DEVICE NON-EXISTENT 









;ERROR 10 MISC. UNIT ERROR 


;ERROR 11 INVALID UNIT 


FAILED TO: INTERRUPT / 


Fadia 
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EVEN 
we DATA TABLES FOR ERROR MESSAGES 
a 6 4 
jOEVICE REGISTER 
-EXPECTED DATA 


OE ruRL DATA 


3,7 
-UNIT & 


“EXPECTED DATA 
3.2 
;ACTUAL DATA 


SETeeee SESS EE 


NORERER DBSERS 


. 
= 6,4 
001304 is 
oo1244 | SbEVICE ‘REGISTER 
000901 OT4: 
-. 003 002 
001236 


CORMAX: 
- SEQ,LOC, BIN 
+ YOU HAVE EXCEEDED 8K CORE LIMITS. 


oo 
az 


et et et et et et et et et et tt et et et et ee et ee es a ee ee es ee 


( 
( 
( 
( 
( 
( 
{ 
( 
( 
( 
( 
( 
( 
| 
( 
{ 
C 
( 
{ 
( 
( 
( 
( 
( 
( 


> - 0+ b-+ b= b+ b= OB & 0p -+ bD—=  = §— b 9  p  p b- b-+ > <= bp pp ge 


;UNIT # 


2E222 22222 


° = 
INN 
[a od 
™uMo 


wm 
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emma azo" £4386 083 et a ese 23a Sxtee Baty oe Stes Sides S18" 


3140 863142 03144 4282 33° uees dae 8 
448e8 4484 8645208 das ace ieese ders 45788 898 deaae 


te 
aes 
33 


ADRCNT 769% 806% 816s 
AUTRES 46618 

ASC “H 1764 17718 
AS! 130i 1 17818 
ASIO. = «Ol 1939 19468 
A$109 Oe0ed4 es77 = 2848 
SB gee 26 OB 
AS1 2326s 
Agios 0204: 2338 : 
a ne 
AS107 Oedb2c e386 38=—s_- 29938 - 
AS11 013652 1949 = 19568 
ait See ee 
Asie 50748 30e6 30288 & 
AS113 021134 3081 30888 
ASi14 021174 3034 31018 
AS1IS Oel224 3104 gills 
AS116 Oeles4 3114 3 =3lels 
A$117 =©021354 3130 8631468 
ASle 8013724 1976 «86: 1988 
A$1e0 §8021530 3169 8931768 
AS1l21 OelSée 3179s «31868. 
ASi2ze psiots 3190 31978 
A$ 123 1702 3213 e208 
AS1e4 021734 see3 = 32.308 
AS1eS Od2l766 3233 a 
ASle6 §8Oee0e0 3243 3 
A$le7 Oee2104 3c65 0s Se7e8 
AS13 =: 013742 1984 19888 
A$130 022136 3275 32828 
Bai sh 022166 3286 & 
ASL Deeesé 3309 pe 
A$133 022310 3319 a 
AS134 Oe234e 3329 933368 
AS13S 022374 3339 33468 
AS136 Deeded 3363 33708 
AS137 46 3373 # 
AS14 1 soo3 les 
AS14O 50 & 
AS141 e262 3393 34008 
AS142 Oeeb7e S416 = SHe38 
AS143 34e6 = 34338 
ASI44 e756 3436 = 34438 
AS14S 023010 S446 =. 34538 
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ASI4Y6 02314 34930 34978 
AS147 023206 3503 35108 
ASIS 014066 2015 ee 

1 4 le 

1 a 

1 4 a 

1 16 35678 
AS1SY Oe3446 3570 35778 
agsissS C2 35878 

138 r} 

15 8 

1 * 

1 4 4S8 
A$161 023716 3648 36558 
ASi162 023750 3658 36658 
ai ee Pa 

165 1 v1 ry 
naire 164 3716 38 
ASIE 024214 3726 37328 
A$17 014136 2046 P} 
aSi7} 024336 3759 : 

172 beuage 382 ; 
aS1 Oe44S6 3795 38028 
AS174 024572 3830 38378 
aaizs 024624 3840 ave 
Agiv? | feast 3ee0 | S8E78 
AS2 013200 1820 1828e 
nest 014442 eile 2less 
AS201 peepee 3905 les 

J AS202 025106 3915 339228 
A$S203 025140 33925 39328 
A$204 025200 3943 39508 
A$S20S  OeSebe 3964 39788 
AS206 peoee 3981 39958 
 A$207 3398 400S8 
Ag21 014474 2128 21358 - 
AS210 Oes444 4013 40268 
A$2ell  O25S16 4029 40428 
Racls : 4O4S 40S28 
ASel 7ee 4099 41068 
AS214 756 4109 41168 
AS21S Oeb0le 4119 41268 
AS216 © 4137 41448 
A$217 026104 4147 41548 
ASe2 014S24 2l 214se 
ASe20 6026152 iiss 41708 
AS2e1 41 41808 

026560 4e6Ss8 
A$223 42718 
A$S224 026669 275 wom 
A$2e5 4299 4315% 
027024 4325 43278 
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a 
er 
Bin 


re 


eee 
SNR 


i 
5 
M-—froru 
oe 
N 


Roe Eahae 
SaEGReeTeen 


CROWNED 
Baas 


gen eRwoNe 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


D+ 2 bs bh 2 Be he Bs bs 2 8 Be os 2 bf 0 ps He Hs pe he 


ty) 
JesSBeNawSBIeT 





=D ow 
5 


Azan oe OS 
newnw-o 


4 
io 


ox 


DOWDOMOWOWWMOMOWMWMW w 
er eee ee eee ere 
00 00 08 08 Ob Ob OO 8 08 Ob OF Oe oe Oe Oe 


+ 
w 


ER 


4B 


z 
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BSpise 
Neue 45278 4535 4S6i8 4S66 46SS# 
psare 47378 
11206 1400 
000001 usee° AES 2337 2410 2414 2529 2594 2659 2957 4285 4286 4355 4355 
ebee 1751 2158 
pees # 1479 1S23 1679 1971 1975 2039 3068 3141 
a 234 1628 1634 1657 1664 2051 2107 
010000 eSi#s e228 26S8 
020000 2sOe 2593 ebSs - 
040000 2498 662 1178 1210 1259 1306 1358 13% 1445 
100000 e488 1477 1983 2045S 4332 
000004 ecblse 602 1491 14 1513 1521 
000016 e608 
nnoneh esse 4419 
000040 * 1753 2160 3025 3091 3139 
000100 2578 1100 1597 1598 l6le 1613 4326 
000200 esha 1481 23963 3129 3137 3143 4298 
000400 ess# 4391 4785 4787 4802 4804 
001000 2S4s8 
002700 608 6838 
002702 609 684% 
026420 4192 42218 
030250 4064 eit & 
003634 858% 1% 8898 
003672 3138 914 916 
104413 4478 626 628 630 632 953 gss 1913 4431 4435 
104412 44S¢% 582 969 
001260 38i8 44 
027634 4469 44798 
041714 4gSe8 ; 
04 11168 4474 
001270 385% 
20 77 10858 
027734 45188 4Seex 45e8% 4534 
40 610 643 644 10448 
004146 942% 94s 967 970% 
004134 941% 963 9668 
003360 767% 803 8148 
041506 4816 4 4824 48Se8 
041543 4836 48528 
041600 4840 48528 
Ba0e°6 wie oe 
581500 3468 507% 623% 
000174 337% 507 
041640 4817 4821 4825 48528 
041656 4837 4BS28 


OZTRAA MACYL1 
DZTRA.HED = 1 


ggacgasead 
eases 
S2ee 


m 
oO 
+4 
+ 
w 
+ 
i] 
By 
bre 
bt al as | 


CEs 


28888 8 
REN B 


Ried 


SRBSRh 
via 


d 
S888 8 
alee 
NOLS 


“ 
a 
oO 
+ 
® 
oO 
: 


BB 
888 
a 


= 





3 
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1443 


30 
CROSS REF 


679% 


PAGE 104 


4228 


1147 
2534 


46038 


1155% 
2599 


‘LO8 


ERENCE TABLE -- USER SYMBOLS 


3262 3306 3360 3413 
1257 l262% 1304 1309% 
4423% 4437% 4731% 

943 957% 1014% 

1640 1648 1807% 1808 
2663 2725 2790 2966 
e412 2437 2439 2724 
3707 3725 3728 3729 
1427 
4632%  4729% 


43248 


1356 


1816% 
3044 


2754 
3818 


1361% 


2052 
3072 


2756 
3849 


1334 


2076 
3480 


1399% 


2084 
3749 


MO8 
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DZTRA.HED  13-APR-76 00:00 
000100 2738 
LEVEL3= 000140 5738 4772 
LEVEL4= 009200 5718 4771 
. 7 
B= % 128 
1 5868 
LIMITS 003304 8227948 
COBITS 003362 oe 815s 
toc. O01 SC a ae a 
Lock . 90188 * 678% 691 693 949 
COKFLG 001 tee 
COLIN 003354 75% 7% B12 
TeTERR ppissd 3s les Bote «|OEeis 907s 
tethee | ppaesa oe 3 
NASTEK 004654 1 10208 
= 000052 1ii3e 4421 
MAXTST= OOODD6 1114s 
NXFL 006147 10208 2548 
MBUS. O41415 4839 Sas2e , 
MCRLF 04352 7642 U:SC(<ié‘iOCHBSCtC«SHSC*«iSCéS—s«1071 
MCSRX 04805 B29 «10208 
MDATA 007476 879° «10348 
MDATAE 041400 4B35 «4gS2e 
MeDT._ O07e5s 1 
MEPSRE poscee - 38308 3835 
MERFL 004763 fos0s «4143 «= WS2) 4684178 
MERRPC O04G56 954 10208 . 
004631 10208 
i. ae 
RESTAD 011454 tH5B" use 
006351 ioz08 2981 
MFAIL 007344 724 = «10208 
MIDSFL O0S156 10208 1616 
MIENFL OOE132 10208 1601 
MILFFL OO316 10208 1825 
MINSRG O0S0S4 10208 1518 
OCk . OD4555 694 10208 
O06413 10208 3086 
MNTFLG 001344 4148 
ll 10208 2613 
1 10208 3B 
O0S671 10208 2048 
MOLEFL gD0seS2 10208 1986 
09 io208 | 3764 
MP 004%20 659 «(10208 
MPCFL 63 10208 1683 
MPFAIL 004355. 1012 ‘10208 
oouzu, 753 10208 1076 
po443e 611 10208 
MRCFL 0063 10208 2740 
MROERR 008736 10208 3187 
004732 10208 4024- 4o40 4050 


4430 
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MWUN 

NEXT O01216 
0008 040770 
OFLINE= 001436 
OUTPUT 030576 


PARAM = 104407 
PARAM! 003224 
PARERR 003300 
PASCNT 001230 
PASRAT= 000012 
PASSUB= 030344 


PAST 030350 
PASTOL= 030346 
PFTAB 004340 


4827 

10208 
10208 
10208 
10208 
10208 
10208 
10208 
10208 
10208 
10208 


10808 
10208 
10208 
10208 
10208 
- 4504 
10208 


a 


—_—- eee ome se 


4651 


4650 
1017% 


30 PAGE 106 
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1162 


4114 


573 
1056 


4350 


4124 


1247% 


NO8. 


1294* =1345* 1383% 1404 
2351 2376 82378 863149 
47388 


797 739 


1423% 


3165 


3478 


3813 


3515 
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4473 


gy Fue 091343 
S ooces4 
REGIST 01244 


1070# 


00 
00 
00 


Selene 
=o Teo 


Rea RRE SR 


S88888eR88 
= st 


1363 =140S 


Pee: 
=8 





CO9 


BSTRALHED I3-APR-7e OOrHO “CROSS REFERENCE TABLE =- USER SYMBOLS 


46S4 


253 


etn a0 


Behavoneen % 
ae SesoC Nene ewes 


=o 


Su 
Su 
Su 
Su 
aH 
Shi 


RS SRR SBS 


on 
Ob b&b 


Bee 
eres es ages Saag 


1204 1251 1253 
1394# 1388 14248 
1977% 234e% 23528 
4785 4792 4804 


a 


oe ee ea 
aaa 
£uvo 


— 
£ 
Seen een tan 


RERERRESPESRERER 
eevee 
aA 
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13-APR-76 90:90 
TESTAL 021256 1228 31288 3205 3301 
STAM O21614 12293 32048 
STAN Qe 1230 32588 
He Re Re 
T 1 48 
TRO l 78 
STaS 023040 34718 
TESTAT Qe33le . 1278 35418 
TEST 023520 1280 35998 
rem ee ARI re 
TAX 234 1331 44 a 13 
TESTAY O24476 1332 38le8 3878 
TESTAZ 024730 1333 38778 
Ts BLA Ses 1221 4908 
TBA . 02514 1281 8 
TESTC -O11644 1 3 1271 1317 1369 1Sl2s 
TESTCA O2SSS6 40588 
Eat 025606 re cia thn esse 23903 40ESs 
ee Ble an 
2 
TES 12144 1 15968 
TESTEK Q2S5626 2720 2785 r} 
TESTEX O2SEE6 — 4080 40988 4221 
TESTF Oleeod 1274 1148 
STFO O2S646 2408 24 3029 40858 
STFX 14 4090 «41368 
TESTG OQOl2232 lé268 1958 
TESTH Ol12476 1320 170S8 
TESTI OQOl2624 mA 1270 1318-: 1409 17428 #81793 18s3 1933 1999 3060 3542 3é75 4311 
STJ 013032 1275 17928 
TESTJ1 013102 1802 18078 
STK OQ13266 1276 18Se8 
TESTL O13444 18998  4el7 : B 
TESTM O13S46 1277 19328 
TES 013662 lie4 1529 19708 2060 2elb2 4269 4331 
TESTO 013762 1319. 1370 17068 «=«.«a888e «= 399i?‘ 
TES 014070 122s 20338 
TESTO Ol4el2 1234 20718 
TESTS 014620 21778 40S4 
TESTU 014732 ecesSs 4218 
TY 015142 2esse 4219 424) 
TESTW 015320 1 23318 
TESTX O1SE4E 
STXX Q26206 1371 1431 41878 44220 
TESTXY Q26434 1411 4eeSe) 44, 
TESTY Ol16116 og 
TESTZ  O16332 eSeSs 
TKCSR 001204 le 665 738 4719% 
TKDOBR 001206 ] 667 740 746 4721% 
TLAST = 011314 1074 48S28 
TPCSR psig 3538 707 744 922 454 4543 47208 
TPOBR OOlel * 709% 746%  9e4* 1499% 1519% 1979% 3066* 4S4S* 4722s 
TREA 001412 4618 2137 2140 2141 2250 2253 22eS4 2309 2312 2313 2335% 223418 2346 


re ee os = — 


E09 
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351% 2376 2379 | 24128 2437 Oo 2441 2504 

: ol i oe Be oe Bi ml Bp Be By Fe 
TERRE ER SE. 
a8 wes ate RR 4359% 4769% 

TRBASE 001242 ® 04s 4758 

TRCR 001376 eb et 1140 1141 1156 1159 1160 1477 
1S03% 1504 1 ieeee 1527 1534 1541% isi i 1sus 
1853 1560 1551 Seg 1869 Ever I 183% 1 1597% 1 
cc cS 2S 4 Qc 
tees tees’ tg 1 19H 2 1 1938 iii 1558 1583 
teas «Ste Soa e03y So3h signe it, SHOTS SAN 
2396 P413® 2414" 2417 e420 2421 eus7* 2458 480 2483 
528% * BSH> e545 2546 * 2583 e59ee 593% c5G7e 
oe of pe et ae ae ie Be Ge BF Be 
Sint’ Saag sisi Sieo’  Sice 317) 317 3213" zis slg 36 
ae a ae es 
33. 3E78 cn eS a ej a 
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